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ABSTRACT 


THIS PROGRAM IS INTENDED TO TEST ALL OF THE BASIC 
FUNCTIONAL LEVEL OPERATIONS OF THE TMO2/TU45 MAG 

TAPE SYSTEM. ALL FUNCTIONS; WRITE, READ, SPACE, 

ERASE, REWIND, ETC; WILL BE TESTED. IN ADDITION TO THE 
TMO2/TU4S5 TESTS, THE RH WILL BE TESTED SEPARATELY IN 

SO FAR AS IT IS POSSIBLE TO SEPARATE THE RH FROM THE 
TMO2/TU4S ITSELF. 


REQUIREMENTS (HARDWARE) 


A. ANY PDP-11 PROCESSOR 

B. 8K OF CORE 

C. CONSOLE TTY 

D. TMO2 MAGTAPE CONTROLLER 
E. MASS BUS CONTROLLER 

F. TU45 MAG TAPE TRANSPORT 


LOADING PROCEEDURE 


USE STANDARD BINARY LOADING PROCEEDURE 
STARTING PROCEEDURE 


THERE ARE TWO (2) STARTING ADDRESSES THAT MAYBE USED: 200(8) AND 210(8) 
A. 200(8): STARTING AT THIS ADDRESS WILL CAUSE THE PROGRAM 


IDENTIFICATION TO BE PRINTED FOLLOWED BY 
REQUESTS FOR THE VARIOUS PARAMETERS NEEDED 
BY THE PROGRAM. 


B. 210(8): THIS ADDRESS IS INTENDED FOR USE AS A RESTART ONLY 


AND WILL USE THE CURRENT PARAMETER VALUES. 
SAMPLE START AT 200(8): OPERATOR RESPONSES ARE IN PARENS. 


TMO2-TUSS5 BASIC FUNCTION TEST 
ENTER CONDITIONS IN OCTAL 


REGISTER START: 172440 (CR) 
VECTOR: 224 (CR) 

DRIVE NUMBER: 0 (3) 

SLAVE NUMBER: 0 (6) SERIAL NO: 200 
RH11 OR RH70: (0) 

RH ONLY: (0) 

NRZ ONLY: (1) 


THIS EXAMPLE SLOWS THE PROGRAM START USING THE RH11 


ADDRESS (CS1) OF 172440, AN INTERRUPT VECTOR OF 224, 


SEQ 0005 
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DRIVE NUMBER 3, AND SLAVE NUMBER 6, NRZ ONLY. 
NOTE THAT THE CURRENT VALUES FOR EACH PARAMETER IS 
PRINTED AND MAY OR NOT BE CHANGED. 
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CONSOLE SWITCH SETTING 


ALL SWITCHES EXCEPT 5-9 ARE USED AND THE NORMAL, OR DEFAULT, 

RUN IS DONE WITH ALL SWITCHES SET TO ZERO (0). 

ALL SWITCHES ARE DYNAMIC, AND MAY BE CHANGED AT ANY TIME, ASSUMING 
A CONSOLE SWITCH REGISTER IS PRESENT. IF A CONSOLE SWITCH 

REGISTER IS NOT PRESENT, THE SWITCHES ARE NOT DYNAMIC AND 

MUST BE SET BEFORE STARTING, USING THE FOLLOWING PROCEDURE: 


A) LOAD ADDRESS 636(8) LABELLED ‘‘SWR"’ 
B) DEPOSIT THE VALUE 176(8) 

C) LOAD ADDRESS 176(8) 

D) DEPOSIT THE DESIRED SWITCH VALUE. 


Sw15: 1=HALT ON ERROR 
O=CONT INUE 
SWw14: 1=LOOP ON ERROR (SCOPE) 
O=CONT INUE 
Sw13: 1=DO0 NOT PRINT ERRORS 
O=PRINT ALL ERRORS 
SW12: 1=INHIBIT ITERATION 
0=D0 ALL ITERATIONS PER TEST 
Swi: 1=CONTINUOUS CYCLE 
=HALT AT END OF PASS 
Swi0: 1=HALT AT END OF CURRENT TEST 
— 
Sw9-5: 


SW4-0: SELECT TEST NUMBER: :O0=ALL TESTS 


THE USE OF SWO-4 IS TO ALLOW SELECTION AND CONTINUOUS 
EXECUTION OF ANY TEST. THE TEST SELECTION MAY BE CHANGED AT 
ANY TIME, HOWEVER IT IS ADVISABLE TO USE SW10 TO STOP THE 
PROGRAM AT THE END OF THE CURRENT TEST BEFORE CHANGING NUMBER. 


SEQ 0005 
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6. ERROR PRINTOUTS 


THE ERROR PRINTOUTS FOR EACH TEST WILL APPEAR IN THE SAME 

GENERAL FORMAT. THE FIRST LINE WILL ALWAYS SHOW THE TEST NUMBER AND ITS 
TITLE. THE SECOND LINE WILL BE AN EXPLANATION OF THE ERROR. THE 
FOLLOWING LINES WILL SHOW THE APPROPRIATE REGISTER OR ADDRESS 

VALUES THAT ARE APPLICABLE TO THE INDIVIDUAL TEST 


EXAMPLES: 


1. THIS EXAMPLE SHOWS A TYPICAL ERROR PRINTOUT FOR THE WRITE 
READ TEST: A WRITE CRC ERROk OCCURRED ON SLAVE 6. 


FT13: WRITE-READ TEST 
WRITE ERROR NRZ 


CS$1 wC BA FC CS2 DS ER TC 
144260 000000 015650 000000 000105 150600 100000 101306 
2. THIS EXAMPLE SHOWS A TYPICAL SPACE ERROR: 

THE FC IS NOT ZERO AT THE END OF THE OPERATION. 


FT14:SPACE TEST 
SPACE REVERSE ERROR NRZ 
CS1 WC BA FC CS2 dS ER TC 
144230 177700 017162 177740 000114 150600 001000 161700 
3. THIS EXAMPLE SHOWS A SPACE OPERATION WHICH RESULTED IN 
INCORRECT POSITIONING. SHOULD BE AT RECORD 20, IS AT RECORD 22. 


FT14: SPACE TEST 
POSITION ERROR: 
REVERSE ERROR EXPT:20 RCVD:22 
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OPERATION 


THE PROCEEDURES FOR OPERATING THIS PROGRAM ARE QUITE SIMPLE 
AND REQUIRE ONLY A FEW STEP: 


1. LOAD ADDRESS 200 OR 210 

2. SET SWITCHES FOR DESIRED TEST CYCLE 

3. PRESS START 

4. ENTER APPROPRIATE RESPONES TO THE TTY REQUESTS 


ALL CONSOLE SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY 
TIME. THE NORMAL, OR DEFAULT, OPERATING SEQUENCE IS ALL 
SWITCHES DOWN (ZERO). THE END OF EACH PASS IS NOTED BY A 
MESSAGE STATING END OF PASS AND THE NUMBER OF THAT PASS. 


SINGLE TEST SELECTION: (SWO-SW4) 


WHEN SWO-4 ARE SET TO ZERO (00) THE SCHEDULAR WILL 

EXECUTE ALL OF THE TESTS IN SEQUENCE (1-24). IF SWO-4 IS 
SET TO SOME SPECIFIC TEST NUMBER (1-24) THAT PARTICULAR TEST 
WILL BE EXECUTED CONTINUOUSLY. ANY TEST MAY BE SINGLE 
SELECTED IN ANY ORDER; HOWEVER, THE BEST WAY TO AFFECT 

THE CHANGE IS TO USE SW10 TO HALT THE CURRENT TEST, THEN 
CHANGE NUMBER AND PRESS CONTINUE. 


RH11 OR RH70 OPTION: 


A ONE RESPONSE IS FOR THE RH70; 
A ZERO RESPONSE IS FOR THE RH11. 


RH ONLY OPTION: 


BY RESPONDING TO THE REQUEST (RH ONLY: ) WITH 
A ONE (1), ONLY THE TESTS WHICH ARE POINTED TO 
THE RH (TESTS 1 - 10) WILL BE EXECUTED IN 

EACH PASS. 


SEQ 0007 
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TEST DESCRIPTION 


THE FOLLOWING IS A LIST OF ALL TESTS IN THEIR PROPER SEQUENCE. 
A BASIC DESCRIPTION OF EACH TEST IS PROVIDED TO AID IN UNDERSTANDING 
OF THE ERROR MESSAGES ASSOCIATED WITH EACH ONE. 


A. RH TESTS: THE FIRST TEN (10) TESTS WILL PERFORM BASIC RH 
OPERATIONS AS FAR AS IS POSSIBLE WITHOUT REQUIRING 
THE TMO2/TU4S ITSELF. (SEE RH ONLY OPTION; PAR 7) 


FT1: RH ADDRESSING: THIS TEST WILL ASSURE THAT THE 
RH WILL RESPOND WITHOUT CAUSING A BUS 
TRAP TO ALL TMO2 REGISTER ADDRESS 
IN SEQUENCE STARTING AT THE ADDRESS 
OF CS1 ENTERED BY THE OPERATOR. 


FT2: RH REGISTER BITS eT ae a THIS TEST WILL ASSURE THAT 
ALL BITS OF THE RH WRITE/READ REGISTERS 
CAN BE SET AND RESET. 


FT5: RH INITIALIZE: THIS TEST WILL ASSURE THAT A RH INITIALIZE 
(BIT 5 OF CS2=1) WILL INDEED CLEAR 
THE RH ERRORS. 


* FT4: SILO TES” 1: THIS TEST WILL ASSURE THAT A READ FROM 


AN EMPTY SILO WILL CAUSE DLT TO SET. 


* FT5: SILO TEST 2: THIS TEST WILL ASSURE THAT BOTH THE 


IR AND OR BITS WILL CORRECTLY RESPOND 
TO LOADING OF THE SILO WITH ALL ZEROS 
AND THEN A WORD OF ALL ONES. 


* FT6: SILO TEST 3: THIS TEST WILL WRITE AND THEN READ 


THE ENTIRE SILO TO ASSURE THAT DATA CAN 
BE PROPERLY FILLED AND READ. ALSO THE 
PROPER STATUS OF IR AND OR ARE CHECKED. 


* FT7: SILO TEST 4: THIS TEST WILL ASSURE PROPER RH11 


RESPONSE TO SILO OVERFLOW. 


* FT10: SILO TEST 5: THIS TEST WILL ASSURE SILO RESET 


BY RH11 INITIALIZE. 


eee NOTE: SILO TESTS (FT4-FT10) ARE FOR THE RH11 ONLY. *e*t* 


SEQ 0008 
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B. TMO2/TU4S BASIC FUNCTIONS: THE FOLLOWING FOURTEEN (14) 
TESTS WILL ASSURE OPERATION OF THE 
MAG TAPE BASIC FUNCTIONS. 


THIS TEST WILL ASSURE THAT THE NOP 
FUNCTION EXECUTES WITH NO ERROR. 


THIS TEST WILL ASSURE THAT THE REWIND 
FUNCTION WILL POSITION THE TAPE TO 
BOT WITH NO ERROR. 


FT11: NOP TEST: 


FT12: REWIND TEST: 


FT13: WRITE/READ TEST: 


1. 
é. 


3. 


ISSUE A REWIND COMMAND 
AWAIi PIP RESET (MOTION STOPPED) 
_ THAT NO ERROR OCCURED 


THIS TEST WILL ASSURE THAT 
THE UNIT UNDER TEST CAN WRITE AND 
READ IN ALL DENSITIES (FOR BOTH PE AND NRZ). 


2: 


REWIND TO BOT 
eatin” 100 RECORDS 
ALL ONES DATA 

8. 200 FRAMES 

C, 200 BPI; ODD 
CHECK FOR ERRORS ON EACH RECORD 
READ REVERSE THEN Neorg ALL 100 RECORDS 
CHECK FOR ERRORS ON EACH RECOR 
— STEPS 2 THRU 5 FOR 556. 800.1600 BPI 


DATA RELATED ERRORS (PARITY ERROR, CRC ERROR, ETC) ARE IGNORED.THE ACTUAL 
DATA READ IS NOT CHECKED; OWLY THE FUNCTION IS TESTED, NOT THE MEDIUM. 


THIS TEST WILL ASSURE THAT PROPER 
POSITIGNING IS MAINTAINED BY BOTH 
SPACE FORWARD AND REVERSE. 


FT14: SPACE TEST: 


REWIND TO BOT 
WRITE 100 RECORDS 

A. EACH RECORD IS OWE FRAME LARGER THAN THE LAST. 

THIS WILL ALLOW FOR POSITION CHECKING BY RECORD SIZE. 

EACH RECORD IS ERROR CHECKED. 
DATA RELATED ERRORS ARE IGNORED. 
NOW SPACE REVERSE 77 RECORDS AND 
READ REVERSE 1, THE FRAME COUNT 
SHOULD BE 100. 
THIS IS THE SIZE OF THE FIRST RECORD. 
NOW SPACE FORWARD 76 RECORDS AND READ 
FORWARD 1, THE FRAME COUNT SHOULD BE 177. 
THIS IS THE SIZE OF THE NEXT TO LAST RECORD. 
CONTINUE THE SPACE AND READ (DECREMENTING THE RECORD COUNT EACH TIME) 


UNTIL ALL POSITIONS HAVE BEEN CHECKED. IF POSITION IS LOST; TEST ENDS. 


REPEAT STEPS 1 THRU 7 FOR PE. 


SEQ 0009 
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FT15: ERASE TEST: THIS TEST WILL ASSURE THAT THE ERASE 
FUNCTION WILL INDEED ERASE TAPES. 


1. REWIND TO BOT 

2. ISSUE 200 ERRASE COMMANDS. 

3. ASSURE NO ERRORS FOR EACH COMMAND. 

4. REWIND TO BOT. 

5. ISSUE A READ FORWARD COMMAND. 

6. THE TAPE SHOULD MOVE FORWARD UNTIL 
STOPPED BY OPI (APPROX 25 FT). 

ae _— NO ERRORS OTHER THAN OPI. 

. EN 


FT16: TAPE MARK each ic THIS TEST WILL ASSURE THAT 
A TAPE MARK CAN BE WRITTEN AND READ 
IN BOTH PE AND NRZ. 


1. REWIND TO BOT. 

2. ISSUE A WRITE TAPE MARK COMMAND. 

3. ASSURE NO ERRORS. 

4. ASSURE THAT TAPE MARK STATUS IS SET 
IN DRIVE STATUS (BIT 2). 

5. READ REVERSE. 

6. ASSURE THAT TAPE MARK IS SET 

7. ASSURE THAT NO ERRORS OTHER THAN FCE OCCURED. 
8. READ FORWARD. 

9. REPEAT STEPS 6 AND 7 

10. ~ aad STEPS 1 THRU 9 FOR PE. 


FT17: TAPE MARK SPACF. TEST: THIS TEST WILL ASSURE THAT 
SPACING WILL BE TERMINATED BY RECOGNITION 
OF TAPE MARK BOTH IN PE AND WRZ. 


1. REWIND TO BOT. 
2. WRITE THE FOLLOWING PATTERN OF 
TAPE MARKS AND DATA RECORDS: 
TM:20 RECS: 1TM:40 RECS:1TM:60 RECS:1TM:100 RECS:TM: 


3. ASSURE NO ERRORS. 


4. ASSURE THAT TAPE MARK STATUS IS SET FOR TM WRITES. 


5. NOW SPACE REVERSE 200 RECORDS. 

6. THE SPACE OPERATION SHOULD STOP ON EACH 
TAPE MARK IT FINDS. THEREFOR 5 SPACE 
COMMANDS ARE ISSUED TO COVER THE ENTIRE 
PATTERN WRITTEN ON TAPE. 

BOT SHOULD NEVER BE REACHED AND THE 
FRAME COUNT WILL REFELCT 

THE NUMBER OF RECORDS BETWEEN 

TAPE MARKS. 

7. REPEAT STEP 6 IN THE FORWARD DIRECTION. 
ASSURE NO ERRORS OTHER THAN FCE. 

. REPEAT STEPS 1 THRU 8 FOR PE 


© Co 
« 


SEQ 0011 
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FT20: WRITE CHECK TEST: BOTH WRITE CHECK FORWARD AND REVERSE ARE 
TESTED IN BOTH PE AND NRZ. 


FT2i: ERASE HEAD TEST: 


FT22: BUFFERED COMMAND: 


REWIND TO BOT. 

WRITE A 400 FRAME RECORD USING DATA 
PATTERN 3 (125125). 

ASSURE NO ERRORS OCCURED. 

ISSUE A REVERSE WRITE CHECK COMMAND. 
ASSURE NO ERRORS OCCURED. 

REPEAT STEP 5 FOR A FORWARD WRITE CHECK. 
— STEPS 1 THRU 6 FOR PE. 


THIS TEST WILL ASSURE THAT THE 
ERASE HEAD ITSELF IS OPERATING. 


To 


10. 


REWIND TO BOT. 

WRITE 2 RECORDS OF 800(10) FRAMES 
EACH. EACH RECORD WILL BE 1 INCH 
OF TAPE. DATA IS NOT ALL ONES. 
REWIND TO BOT. 

NOW WRITE A 400(10) FRAME RECORD. 
THIS RECORD WILL BE ONE HALF 

INCH OF TAPE. THE ERASE HEAD 
SHOULD CLEAR THE REMAINDER OF THE 
FIRST RECORD (ONE HALF INCH). 
REWIND TO BOT. 

NOW READ THE SHORT FIRST RECORD. 
IT SHOULD BE 400(10) FRAMES. 

NOW READ THE SECOND RECORD. 

ie SHOULD BE STILL 800(10) 


IF THE SECOND RECORD IS TOO LONG, 
THE ERASE HEAD DID NOT FUNCTION OR 
IT 1s IN THE WRONG POLARITY. 


THIS TEST WILL ASSURE THAT THE 
TMO2 WILL ACCEPT AND EXECUTE ANOTHER 


COMMAND WHILE ITS SELECTED SLAVE IS REWINDING. 


REWIND TO BOT. 

ISSUE 3 LONG WRITE COMMANDS TO ASSURE 
BEING OFF BOT. 

ISSUE A REWIND COMMAND. 

AS SOON AS DRIVE READY — SET, 

ISSUE ANOTHER WRITE COMPMAN 

THE NEXT DRIVE READY SHOULD BE AFTER THE 
TAPE HAS REACHED BOT AND EXECUTED THE 
BUFFERED WRITE COMMAND. 

= NO ERRORS OCCURED. 


SEQ 00135 
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FT25: READ IN PRESET: THIS TEST WILL ASSURE THAT UNIT 0 
IS REWOUND AND SET TO 800 BPI NORMAL. 
(ONLY IF SLAVE 0 IS SELECTED). 


1. ISSUE A WRITE COMMAND TO ASSURE 

BEING OFF BOT. 

ISSUE THE READ-IN PRESET COMMAND. 

. AWAIT MOTION STOP. 

- ASSURE THAT BOT WAS REACHED. 

. ASSURE THAT THE TAPE CONTROL REGISTER 
— TO 800 BPI ,NORMAL ODD. 


Ws WN 
. 


(THIS TEST IS ONLY PERFORMED IF THE SELECTED SLAVE IS ZERO (0). 


FT24: REWIND: OFF LINE THIS TEST WILL ASSURE 
THAT THE UNIT WILL REWIND AND 
GO OFF LINE. (NOT IF IN CONTINUOUS CYCLE) 


1. ISSUE THE REWIND OFF-LINE COMMAND. 
2. ASSURE THAT MOL (BIT 12 OF DRIVE STATUS) 
ae INDICATING THE UNIT WENT OFF LINE. 


(THIS TEST IS NOT PERFORMED WHEN CONTINUOUS CYCLE OPERATION IS SELECTED: SW 11 = 1) 
?. LISTING 


D2 
TMO2/TU4S BASIC FUNCTION Hs # MACY11 30(1046) 135-JUN-78 13:49 PAGE 16 


CZTUJA.P11 


07-JUN-78 16:5 


-LIST SEQ,LOC, 
TITLE im02/TU45 BASIC FUNCTION TEST 
;CZTUJAO 
:25 MAY 78 
;R. BARNES/R. J. COLLINS 


-ENABL ABS 


sCONSOLE SWITCHES *teexeeeee 


:SW15: 1=HALT ON ERROR 

: O=CONTINUE 

:SW14: 1=LOOP ON ERROR (SCOPE) 

§ O=CONTINUE 

:SW13: 1=DO NOT PRINT ERRORS 

; O=PRINT ERRORS 

:SW12: 1=INHIBIT ITERATIONS 

: 0=D0 ITERATIONS 

:SW11: 1=CONTINUOUS CYCLE 

3 O=HALT AT END OF PASS 
:SW10: 1=HALT AT END OF EACH TEST 
; O=CONTINUE 

:SwWO-4: SELECT TEST NUMBER :: OO=ALL TESTS 


] 
SEQ 0016 | 
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:TU4S REGISTER BITSeeeeceerer 


315 314 3135 312 311 510 ;09 ;08 ;07 ;06 ;05 504 ;03 ;02 ;01 ;00 ; 
PAT ETTTEATETATETTTLTTTELT TET TATTLE TETRA TE 
:SC : TRE; SACP; SPR; DNA; PSL; sA17; sA16; RDY; IE + FUN; FUN; FUN; FUN; FUN; GO ; 


#90000030000300000000903000000130005000000030000 00000050000 


Ps W so 
; COUNT : 
2000000000 0000000 0000000 00000000000000000000 0000000000000 OO0OO00O 


: ADDRESS : 
1 Seaman earner a cecmmemmmemeemaee 
> COUNT : 
TQOU00000000000000000000 1000000 000 0000000000 III IIE 
;DLT;WCE;UPE;NED;NEM;PGE;MXF;MDP;OR ;1R :CLR;PAT:BAI;U2 :U1 ;U0 ; 


003000000 100000000 GO TTT OTTO IOIT INITIO 
SATA: sERR:; PIP; sMOL ; sWRLEOT; SPR; “DPR; DRY; sSSC; sPES; SDN; 18; TAK; ;B0T; SLA; 


0000000000000 000000000000 0K IIT 
+ CDE; UNS; sOPI; sDTE; sNEF ; CS ;FCE; :NSG; PEF; INC; DAT; sFAT; CNT; RAR; ILR; ILF; 


Cs 11M: sLRC;VPE; ; BPE; 
#0030000 50001000000 100000 


: ATTENTION : 
SUMMARY ; 
5, On 
: CHARACTER : 


5 OCHA K HAHAH HK IAAI IIH 


: BUFFER : 
#0190000 3000000002039 1900000200000 2900000 
20:1:2:3:46:5:6:7: P sCLK:CLK: 6:3:2:1:60: 
Sees is er eremeeeneneeeeer 
: TYPE "CH: PR: : 
#0100000 700100 3000002000003 9000 AOA IAAI IIIT 
: NUMBER : 
OOOO 100000 0 00000 0000 0000000 IORI III IK IOK 
ACL; FCS; TCW; ENA; SPR; DEN; DEN; DEN; FAT; FMT: FMT; FMT; EVN; SSN; SSN; SSN; 


sOT 3 4 ; ,e7 4323 3 sree 8 ze: 
RTTITITETTTTTTTTTTTLITTETERTRTRTETETTRTETOSTLOTTSTULER ELECT TTT 


SEQ 0017 
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555 
556 
557 000000 
558 000001 
559 000002 
560 000003 
561 000004 
562 000005 
563 000006 
564 000007 
565 
566 
567 
568 000000 
569 000200 
570 
571 
572 
573 
574 
575 
576 000060 
577 000060 012004 
578 000062 000000 
579 
580 
581 
582 000200 
583 000200 005000 
one 000202 000167 
586 000210 
587 000210 000240 
588 000212 9012700 
589 000216 000167 
590 
591 
592 
593 000224 
594 000224 011770 
595 000226 000340 


001372 


000001 
001356 


MACY11 30(1046) 
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sREGISTER EQUIVSteeeerenee 


STRAP CATCHERS tteteeenee 


.=0 
-REPT 200 


HALT 
-ENDR 


sTTY INTERRUPT VECTOReteeeerere 


o =60 
— > TTY INTERRUPT HEADER ADDRESS 


SSTART ADDRESSeeeteeerece 


.=200 
CLR 


RO 
JMP START  ;PROGRAM START 


MOV #1,R0 ;SET NO HEADER FLAG 


JMP START 
sTMO2 INTERRUPT VECTOReterececer 
7224 


+ 7 TAPE INTERRUPT HANDLER ADDRESS 


SEQ U018 
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000600 


172440 


172472 


177776 


000006 


16:58 


MACY11 30(1046) 


BIRP: 
BIRP2: 


13-JUN-78 
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.=600 
:MASS BUS REGISTER EQUIVSttteteenns 


172440 

172442 

172444 

172446 

172450 

172452 

172454 

172456 

172460 

172462 

172464 

172466 

172470 

172472 

sCONSTANTStteeeeerer 

177776 :PROCESSOR STATUS 
177570 sSWITCH REGISTER 
177560 sTTY READER STATUS 
177562 ; TTY READ BUFFER 
177564 sTTY PUNCH STATUS 
177566 :TTY PUNCH BUFFER 
177777 : SERIAL NUMBER 

011 sDRIVE TYPE 

10 ; ITERATION AMOUNT 
224 ; INTERRUPT VECTOR(RH) 
172440 : STARTING REGISTER ADDRESS 
4 > BUS TRAP ADDRESS 

6 :BUS TRAP PRIORITY LEVEL 7 


SEQ 0019 


CZTU 


UJA.P11 


000000 
000000 
000000 
poste. 


011602 
011612 
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sFLAGS AND COUNTERSttetenetee 


sDATA PATTERN GENERATORS***** 


0 
DAT! ;ALL ONE BITS 
DAT2 sALL Z 


ERO BITS 
DATS ALTERNATING ONE/ZERO BITS 
DAT4 ;ALL BITS 0-377 


SEQ 0020 


CZTU 


001032 
001034 


0000900 


vies ot BASIC FUNCTION TEST 
A.P11 07-JUN-78 58 


16: 


MACY11 30(1046) 


TSTTBL: 


13-JUN-78 


sLOGIC TEST ENTRY TABLEtttttreece 


I 2 
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. } 


SEQ 0021 
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0; -JUN-78 


001600 


000240 
012777 


005777 


000340 
000500 


000562 


000600 
000002 
000666 
000054 


000001 
6 


176466 


MACY11 30(1046) 


177024 


176756 


TART: 


STOA: 
STOB: 


STO: 


ST1: 


STIA: 


13-JUN-78 


.=1600 
;PROGRAM START AND HOUSEKEEPING*ttteaenee 


#340, aPSW 
#500,SP 


#6, 
#177000 ,R2 
#160000 R53 


1 
#1,RHTF 
TSR 


a 
13:49 PAGE 22 


;SET PRIORITY 


;SET STACK POINTER 
;SEE IF PRINT HEADER 
;1F SO: BR 
sELSE SKIP 
;PRINT TITLE 
sREQUEST REGISTER ADDRESS 


sPRINT CURRENT ADDRESS 
:SET ADDRESS SAVE LOC 
sSET SIZE OF RESPONSE 
;SET UPPER LIMIT 

>SET LOWER LIMIT 

:GO GET RESPONSE 


;REQUEST VECTOR 
>PRINT CURRENT VECTOR 


:SET ADDRESS SAVE LOC 
+ SET SIZE OF RESPONSE 


:GET VEC 
; LOAD cates ADDRESS IN VECTOR 


;LOAD PRIORITY 


:GET START OF REGS 
:SET NUMBER OF REGS 
;GET START OF TABLE 


If NOT: BR 
sCLEAR FLAGS + COUNTERS 


;SET ADDRESS TEST FLAG 
:GO DO INITIAL ADDRESS TEST PASS 


;REQUEST DRIVE NUMBER 
tH ADDRESS OF Sanne NUMBER SAVE 


;GO GET RESPONSE 
SET INI 

;SET DRIVE NUMBER 
;ACCESS DRIVE 


SEQ 0022 


TMO2/TUSS BASIC FUNCTION TEST 


CZTUJA.P11 


791 +002112 


032777 


004767 
005067 


07-JUN-78 16:58 


010000 


014415 
010234 


013503 


002000 


014436 
010134 


014457 


007564 
176444 


015132 


176404 


MACY11 30(1046) 


176470 


176412 


176406 


ST2: 


ST3: 


ST4: 


13-JUN-78 
BIT #10000,aCS 
BEQ ST2 
MOV #ASG41,R4 
JSR PC, TTOUT 
BR STIA 
MOV #ASG11,R4 
JSR PC, TTOUT 
MOV #SLVN,R5 
MOV #1,R1 
MOV #7,R2 
MOV #0,R3 
JSR PC,TTR 
MOV #40,aCcs 
BIS DRVN,@CS 
MOV SLVN,aTC 
BIT #2000, aDT 
BNE ST3 
MOV #MSG42,R4 
= PC, TTOUT 
MOV #ASG43,R4 
JSR PC, TTOUT 
MOV aSn,R3 
JSR PC, SNPT 
MOV #ASG61 ,R4 
JSR PC, TTOUT 
MOV #RHI7F RS 
MOV #1,R1 
MOV #1,R2 
MOV #0,R3 

JSR PC,TTR 
MOV #ASG62 ,R4 
JSR PC, TTOUT 
OV #RHOF ,R5 
MOV oR1 
MOV #1,Re 
MOV oR3 
JSR PC,TTR 
TST RHOF 
BNE S14 

MOV #ASG55.,R4 
JSR PC, TTOUT 
MOV #NRZOF ,R5 
MOV RI 

MOV #1,Re 
MOV #0,R3 

JSR PC,TIR 
CLR PCNTR 


K 2 
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;SEE IF NED 
;1f NOT: BR 


;PRINT NOT AVAIL 
;REDO DRIVE REQUEST 


;REQUEST SLAVE NUMBER 
;SET ADDRESS OF SLAVE SAVE 
; ESPONSE 


60 GET RESPONSE 


‘SET DRIVE NUMBER 
;LOAD SLAVE NUMBER 
;SEE IF SLAVE PRESENT 
;1F SO: BR 


sPRINT NON-EXIST SLAVE 
sREDO SLAVE REQUEST 


sPRINT SERIAL NUMBER TAG 
sPRINT SERIAL NUMBER 


;REQUEST RH11 OR RH70 
;GET ADDRESS OF FLAG 
;SET SIZE OF RESPONSE 
;SET UPPER LIMIT 

>SET LOWER LIMIT 

;GET RESPONSE 


;REQUEST RH11 ONLY RESPONSE 
;SET FLAG ADDRESS 
:SET SIZE OF RESPONSE 


"SEE IF RH11 ONLY 
:1F SO: BR 
;REQUEST NRZ ONLY RESPONSE 


;SET FLAG ADDRESS 
;SET SIZE OF RESPONSE 


: SPONSE 
:CLEAR PASS COUNTER 


SEQ 0023 


TMO2/TUSS BASIC FUNCTION TEST 
CZTUJA.P11 


000240 


07-JUN-78 16:58 


176352 
176212 
177740 


001032 


176304 
000140 
176242 
176204 


176160 
176254 


002000 


176226 


176064 
177740 


000001 
000025 


001032 


MACY11 30(1046) 


176332 


176300 


176104 


176200 


176160 


176136 
176130 


175752 


TSCD: 


TSRH: 
TSCDO: 


TSCD1: 


TSCD2: 


TSCD3: 


STSCD: 


TEND: 


TENDX: 


13-JUN-78 


: 2 
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sTEST SCHEDULAReteeeeeere 


STFLG 
aSwR,RO 
#177740,R0 

RO 

STSCD 
#TSTTBL,LTADD 
4, LTADD 


#4,LTAD 
LTADD, ITRLP 
#2, 1TRLP 


HDRFL 
@LTADD ,RO 
(RO) 


#2000, aSWR 
TSCD3 


aSWR,RO 
#177740,R0 
RO 


TSCD 
#1,STFLG 

#25 ,R0 

TEND 

RO 

RO 
#TSTTBL,LTADD 
RO,LTADD 
LTADD,ITRLP 


;CLEAR SINGLE TEST FLAG 
;GO SELECT SINGLE TEST 


;SET ITERATION ADDRESS 


:GO TO END ROUTINE 


;CLEAR PRINT HEADER FLAG 
;SET POINTER TO TEST 
;GO TO TEST 


;SEE IF HALT ON TEST 
:1F NOT: BR 


;SE IF SINGLE TEST 
:IF NOT: BR 


MASK TEST NUMBER 
;SEE IF RETURN TO ALL 
;1F SO: BR 


;SET SINGLE TEST FLAG 
;SEE IF EXCEEDED TESTS 
IF SO: BR 

;SET TABLE MODIFIER 
;SET TEST POINTER 


;SET ITERATION POINTER 


sPRINT END OF PASS 


;PRINT PASS NUMBER 
;SEE IF HALT ON PASS 
;1F NOT: BR 


;BUMP PASS COUNTER 
sRESTART 


SEQ 0024 


TMO2/TU45 BASIC FUNCTION TEST 
CZTUJA.P11 


002700 


012767 


07-JUN-78 16:58 


015274 


175646 


000002 


000006 
176026 


176020 
177042 
177522 


MACY11 30(1046) 


175770 
175746 
175742 


175704 


FT1: 


FTIA: 
FT1B: 


FTIX: 


FTIXX: 


13-JUN-78 


sRH ADDRESSING TESTeeeeeeecese 


;SET HEADER 
;SET TRAP HANDLER ADDRESS 


;SET NUMBER OF REGISTER 

:GET FIRST ADDRESS (CS1) 

REFERENCE REGISTER 

;1F ADDRESS IS BAD, BUS TRAP WILL OCCUR 
IF DONE ALL 


s1F SO: BR 

;BUMP ADDRESS POINTER 

: CONTINUE 

sRESET TRAP CATCHER 

;SEE IF INITIAL ADDRESS TEST PASS 
:1F NOT: BR 
:CLEAR FLAG 


; RETURN 
sRETURN TO SCHEDULAR 


#ASFT1, EMADDR 
#TRAP ,@BTRP 
—— 


Mm 2 
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: SEE 
f 


SEQ 0025 


TMO2/TU45 BASIC FUNCTION TEST 
CZTUJA.P11 


012767 
012701 


07-JUN-78 16:58 


015321 


175560 


013743 


175526 
000001 


013751 
003052 
000056 
175504 


004000 


013757 
003112 
000012 


177622 
020000 
175466 
175462 


007120 
007230 
013717 
007102 


007212 


MACY11 30(1046) 


175670 


175676 
175714 


175636 
175654 


175572 
175610 


175436 


175446 


FT2: 
FT2A: 


FT2B: 


FT2C: 


FT2D: 


FT2E: 


FT2ER: 


FT2ERA: 


13-JUN-78 


N 2 
13:49 PAGE 26 


SEQ 0026 


RH REGISTER BITS READ/WRITEtttteennes 


#ASFT2,EMADDR 
#-1,R1 


PC, INIT 
wC,RO 

R1,R2 

R1, (RO) 
(RO) ,R2 

FT2B 
#MSG25,ERADD 


#FT2A, SCOLP 
PC. FTZER 


FT 

#ASG26 ,ERADD 
#FT2B,SCOLP 
<4" 


FT2D 

R2, (RO) 

FT2E 
#MSG27,ERADD 


#FT2C,SCOLP 
* iat 


EMADOR ,R4 
PC, TTOUT 
#1, HORFL 
ERADD ,R4 
PC, TTOUT 
#MSG22 ,R4 
PC, TTOUT 
R1,R3 

PC ,OCTPE 
#ASG23,R4 
PC, TTOUT 
(RO) ,R3 
PC ,OCTPE 


;SET TEST HEADER 
;SET ALL ONES PATTERN 
;GO INIT 


:GET ADDRESS OF WORD COUNT 
sSET EXPT REGISTER BIT PATTERN 
;LOAD PATTERN 


;SEE IF EXPT=RCVD 
: BR 


;GO DO ERROR 
;GET ADDRESS OF BUS ADDRESS 
;SET EXPT PATTERN 
;LOAD PATTERN 

;SEE IF EXPT=RCVD 
:1F SO:BR 
sSET ERROR CODE 
;SET SCOPE ADDRESS 
:GO DO ERROR 
:GET ADDRESS OF DATA BUFFER 
;LOAD PATTERN 

> DELAY 

+SEE IF EXPT=RCVD 

F SO: BR 

SET ERROR CODE 
:SET SCOPE ADDRESS 
:G0 DO ERROR 

;SEE IF DONE RESET 
:IF SO: BR 

:SET ZERO PATTERN 
:D0 ZERO BITS 

i IF PRINT ERROR 

F NOT: BR 

"SEE ID DONE HEADER 
:1F SO: BR 


;DO HEADER 
:SET FLAG 


;PRINT ERROR CODE 
sPRINT EXPT TAG 
;PRINT EXPT 
;PRINT RCVD TAG 
;PRINT RCVD 


TMO2/TUSS BASIC FUNCTION TEST 
CZTUJA.P11 16:58 


07-JUN-78 


hd 


000167 


175340 


006326 


006356 
177176 


MACY11 30(1046) 


13-JUN-78 
FT2ERB: TST aSwWR 
BPL FT2ERC 
HALT 
FT2ERC: JSR PC, SCOPE 
NOP 
RTS PC 
FT2X: NOP 
JSR PC, ITER 
JMP TSCD2 


B 3 
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;SEE IF HALT ON ERROR 
IF NOT: BR 


;GO SEE IF SCOPE ON ERROR 
; IF NO SCOPE: CONTINUE TEST 


;GO SEE IF ITERATIONS 
;RETURN TO SCHEDULAR 


SEQ 0027 


TMO2/TUSS BASIC FUNCTION TEST 
CZTUJA.P11 07-JUN-78 16:58 


980 003324 012767 015356 


985 003354 004767 006362 
986 003360 9 2d 175214 


00005 
988 3366 012767 014015 
989 003374 004767 000060 
990 003400 032777 040000 


003406 
992 003410 012767 014044 
004767 


000167 
1002 003460 032777 020000 
003466 
1004 003470 005767 175200 
1006 003476 016704 175174 


1011 003522 005777 175110 
3 0000 


1015 0035354 004767 006074 
1016 003540 000207 


MACY11 30(1046) 


175344 
175422 


175236 


175342 


175172 


175320 


175272 


175150 


c 3 
135-JUN-78 15:49 PAGE 28 


sRH INITIALIZE TESTeeeeeceeese 


FT3: MOV WASFTS,EMADDR ;SET TEST HEADER 
MOV #FT3,SCOLP 
JSR PC, INITI 360 INIT 
a #20000,aCS sFORCE UPE =1 
JSR PC,INIT1 760 INIT 
TST aci ;SEE IF SC IS RESET 
BPL FI3A : $0: 
MOV #MSG29,ERADD ;SET ERROR CODE 
JSR PC, FT3ER :GO0 DO ERROR 
FT3A: BIT #40000 ,aC1 sSEE IF TRE IS RESET 
BEQ FT3B :1F SO: BR 
MOV #ASG30,ERADD ;SET ERROR CODE. 
JSR PC, FT3ER :G0 DO ERROR 
FT3B8: MOV acs,Ri 3 cS 
BIC #307,R1 sMARK IR/OR 
TST R1 ;SEE IF RESET 
BEQ FT3x 3IF SO: BR 
MOV #MSG31,ERADD ;SET ERROR CODE 
SR PC, FT3ER 3G0 DO ERROR 
FT3X: JSR PC, ITER :GO SEE IF ITERATION 
JMP TSCD2 sRETURN TO SCHEDULAR 
FI3ER: BIT #20000 , aSuR sSEE IF PRINT ERROR 
NE FT3ERB ;1F NOT: BR 
TST HDRFL sSEE IF DONE HEADER 
BNE FTSERA ;1F SO: BR 
MOV EMADDR ,R4 
JSR PC, TTOUT :PRINT HEADER 
INC DRFL 
FT3ERA: MOV ERADD ,R4 
JSR PC, TTOUT :PRINT ERROR CODE 
FTSERB: TST aswR 7SEE IF HALT ON ERROR 
BPL FT3SERC :1F NOT: BR 
HALT 
FT3ERC: NOP 
JSR PC ,SCOPE :GO SEE IF SCOPE 
RTS PC :1F NOT: BR 


SEQ 0028 


TMO2/TU4S BASIC FUNCTION TEST 
CZTUJA.P11 


005767 


000752 


07-JUN-78 16:58 


175124 
015410 


175014 
174776 
040000 
006056 
176676 
014124 
014142 
014157 


003542 
177572 


MACY11 30(1046) 


175120 
175024 


174766 


175104 
175074 
175064 
175100 


FT4: 


FT4X: 
FTGER: 


FT4ERA: 


FT4ERB: 
FI4GERC: 


13-JUN-78 


;RH11 SILO TEST 1: 


RH17F 


FTSX 
#ASFT4,EMADDR 
#40,aCS 


TS 
#ASG32,ERADD 
FT4ERC 
#MSG33,ERADD 
FT4ERC 
#MSG34 ,ERADD 
#FT4,SCOLP 


PC, FTSER 
FT4X 


dD 3 
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EPMTY SILO READ*tteeeeanee 


;1F RH70: BR 
:SET TEST TEST HEADER 
: INIT 


;READ DB 
;SEE IF OLT IS SET 
NOT: BR 


ZF 


;SEE IF SC IS SET 

IF NOT: BR 

;SEE IF TRE IS SET 
NOT: BR 


ZF 


:GO SEE IF ITERATION 
;RETURN TO SCHEDULAR 


:SET ERROR CODE 
SET ERROR CODE 
;SET ERROR CODE. 


;SET SCOPE ADDRESS 
;GO PRINT ERROR 


SEQ 0029 


CZT 


004066 
004070 


005767 


000207 


ig BASIC FUNCTION TEST 
-P11 07-JUN-78 16:58 


174776 


015440 
003712 
006024 
000100 


014175 
000122 
000200 


014222 
000100 
000000 
000200 


014251 
000050 
177777 
004000 
000200 


014251 


177372 


MACY11 30(1046) 


174772 
175050 


174664 
175002 
174642 
174760 


174632 
174612 


174730 
174602 
174556 


174670 


FTS: 


FTSA: 


FT5B: 


FTS5C: 


FT5D: 
FTSE: 


FT5X: 


FTSER: 


g 5 
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>RH11 SILO TEST 2: IR/OR CHECKeeeeeanaese 


RH17F ;SEE IF RH70 

FTSXx :1F SO: BR 
#MSFTS,EMADDR ;SET TEST HEADER 
#FTSA,SCOLP :SET SCOPE ADDRESS 
PC,INIT1 :G0 INIT 

#100,aCS sSEE IF IR IS SET 
FT5B :1F SO: BR 

#MSG35 ,ERADD :SET ERROR CODE 

PC ,FTSER :GO DO ERROR 
#200,aCS :SEE IF OR IS RESET 
FTSC ;1F SO: BR 


; : B 
#"SG36,ERADD ;SET ERROR CODE 


PC,.FTSER :GO DO ERROR 

#0,a08 ;LOAD ZERO INTO SILO 

#200,aCS ;SEE THAT OR RESET 

FTS :IF IT DOES: BR 

#ASG37,ERADD :SET ERROR CODE 
C,FTSE :G0 DO ERROR 

#-1,a0B LOAD SILO WITH -1 

#4000 ,RO 

#200,aCS ;SEE IF OR IS SET 

FTSX IF SO: BR 

RO 

FTS sAWAIT OR 

#MSG37,ERADD :SET ERROR CODE 

PC,FTSER :GO DO ERROR 

PC, ITER :GO SEE IF ITERATION 
TSCD2 s;RETURN TO SCHEDULAR 

PC,FTSER :GO PRINT ERROR 

PC : CONTINUE TEST 


SEQ 0030 


, 3 
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CZTUJA.P11 07-JUN-78 16:58 SEQ 0031 
1076 
My sRH11 SILO TEST 3: SILO DATA TESTeeetentene 
1079 004072 005767 174574 FT6: TST RH17F 
1080 004076 001052 BNE F T6X ;1F RH70: BR 
1081 004100 012767 015470 174570 MOV #ASFT6,EMADDR ;SET TEST HEADER 
1082 004106 012767 004114 174646 MOV #FT6A,SCOLP ;SET SCOPE ADDRESS 
1083 004114 004767 005622 FT6A: JSR PC, INIT1 :GO INIT 
1084 004120 CLR RO ;PRESET DATA 
1085 004122 010077 174474 FT6B: MOV RO,aDB s;LOAD SILO 
1086 004126 005200 INC RO ;BUMP DATA 
1087 004130 022700 000102 CMP #102,R0 ;SEE IF FILLED ALL 
1088 004134 001372 BNE FT6B ;1F NOT: 
1089 004136 032777 000100 174444 BIT #100,aCS ;SEE IF IR IS RESET. 
1090 004144 001405 BEQ FT6C :1F SO: BR 
1091 004146 012767 014362 174562 MOV #MSG40 ,ERADD ;SET ERROR CODE 
1092 004154 004767 000054 JSR PC, FT6OER :GO DO ERROR 
1093 004160 032777 000200 174422 FT6C: BIT #200,aCS ;SEE IF OR IS SET 
1094 004166 001005 BNE FT6D :1F SO: BR 
1095 004170 012767 014310 174540 MOV #MSG38 ,ERADD >SET ERROR CODE 
1096 004176 004767 000032 JSR PC.FI6ER :GO DO ERROR 
1097 004202 005000 FT6D: CLR RO ;PRESET DATA 
1098 004204 017701 174412 FT6E: MOV a0B .R1 READ SILO 
1099 004210 020001 CMP RO,R1 SEE IF EXPT=RCVD 
1100 004212 001014 BNE F T6DE s1F NOT: BR 
1101 004214 005200 INC RO >BUMP DATA 
1102 004216 022700 000102 CMP #102,R0 >SEE IF DONE ALL 
1103 004222 001370 ONE FT6E ; IF NOT: BR 
1104 004224 004767 005446 FT6X: JSR PC, ITER :GO SEE IF ITERATION 
1105 004230 000167 176266 JMP TSCD2 sRETURN TO SCHEDULAR 
1106 004234 000240 FT6ER: NOP 
1107 004236 004767 177216 JSR PC,FTSER >GO PRINT ERROR 
1108 004242 000207 RTS PC ; RETURN 
1109 004244 000240 FT6DE: NOP 
1110 004246 032777 020000 174362 BIT #20000, aSuR ;SEE IF PRINT ERROR 
1117 004254 001032 ANE FT6DEB : IF NOT: BR 
1112 004256 005767 174412 TST HORFL ;SEE IF DONE HEADER 
1113 004262 016701 174410 MOV EMADDR ,R1 
1114 004266 004767 006074 JSR PC, TTOUT :PRINT HEADER 
1115 004272 005267 174376 INC HORFL :SET FLAG 
1116 004276 012704 014342 FT6DEA: MOV #ASG39,R4 
1117 004302 004767 006060 JSR PC, TTOUT :PRINT SILO READ ERROR 
1118 004306 012704 013707 MOV #ASG22 ,R4 
1119 004312 004767 006050 JSR PC, TTOUT PRINT EXPT TAG 
1120 004316 010003 MOV RO,R3 
1121 004320 004767 006172 JSR PC ,OCTP :PRINT EXPT 
1122 004324 012704 013717 MOV #ASG23,R4 
1123 004330 004767 006032 JSR PC, TTOUT ;PRINT RCVD TAG 
1124 004334 010103 MOV R1,R3 
1125 004336 004767 006154 JSR PC,OCTP ;PRINT RCVD 
1126 004342 005777 174270 FT6DEB: TST aSWR ;SEE IF HALT ON ERROR 
1127 004346 100001 BPL F T6DEX ;1F NOT: BR 
1128 004350 000000 HALT 
1129 004352 000207 FT6DEX: RTS PC sRETURN TO TEST 


TMO2/TUSS BASIC FUNCTION TEST 
CZTUJA.P11 


1130 
1131 


le kk ed ed ed et ot ot 
te el ek ed ed ed ot etd sd 
BP PPE PAA 


od ad 
=) od 
. ae 
NO 


1148 


005767 


000766 


07-JUN-78 16:58 


174312 


015520 
004354 
005340 
000103 
174210 


174166 


005246 
176066 
014124 
177012 


MACY11 30(1046) 


174306 
174364 


174274 


FT7: 


FI7A: 


FT7X: 
FT7ER: 


13-JUN-76 


G 3 
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32 


;RH11 SILO TEST 4: SILO OVERFLOWeteeananne 


RH17F 
FT/X 
#MSFT7,EMADDR 


PC, ITER 


TSCD2 
#MSG32,ERADD 
PC, FTSER 
FT7X 


:1F RH70: BR 

;SET TEST HEADER 
;SET SCOPE ADDRESS 
:GO INIT 

:SET SIZE OF SILO +1 
;LOAD SILO 

;SEE IF DONE 

: IF WOT: BR 

sSEE IF DLT IS SET 

: IF NOT: BR 

:GO SEE IF ITERATION 
;RETURN TO SCHEDULAR 
;SET ERROR CODE 

:GO DO ERROR 


SEQ 0032 


TMO2/TUSS BASIC FUNCTION TEST 
CZTUJA.P11 


SELEGFERAS SER AUKASS 


ee ek ed ed ed ed et etd ot 
ee ee ee ee ee ed eed ed et dd ed 
~~ Oo 


~NN™~ 
fUn-o© 


005767 


000761 


07-JUN-78 16:58 


174216 
015550 


174112 


000040 


174044 


005124 
174236 


176052 
175732 
014124 
176656 


MACY11 30(1046) 


174212 
174270 
174110 


174066 
174072 


174140 


FT10: 


FTIOA: 


FT10X: 


FT1OXX: 
FTIOER: 


H 3 
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;RH11 SILO TEST 5: SILO 
TST RH17F 
BNE 


FT10x 
MOV #ASFTIO,EMADOR 
MOV #FT10,SCOLP 
MOV a 


OV #4, 
MOV RO,aD0B 
EC RO 
BNE FTIOA 


MOV a0B,R1 
MOV a0B,R1 
TST acs 
BPL FTIOER 
JSR PC, ITER 
T RHOF 
BEQ FT10XX 
JMP TEND 
JMP SCD 


TSCD2 
MOV #MSG32,ERADD 
JSR PC, FT3ER 

BR FTIOX 


33 


RESETeeeenanaae 


:1F RH70: BR 

;SET TEST HEADER 

;SET SCOPE ADDRESS 

s INITIALIZE 

: SET NUMBER OF SILO WRITER 
fat SIL 


D SILO 2 
i SEE IF OLT IS SET 
NOT: BR 
‘60 SEE IF ITERATION 
+ if RH od ONLY 


F 


GO TO END 
RETURN TO SCHEDULAR 
;SET ERROR CODE 
:GO DO ERROR 


SEQ 0033 


- . 
TMO2/TUSS BASIC FUNCTION TEST MACY11 30(1046) 13-JUN-78 13:49 PAGE 34 
CZTUJA.P11 07-JUN-78 16:58 SEQ 0034 


1175 :NOP TESTeeere 


77 =004604 000240 FT17: NOP 

78 004606 012767 004604 174146 MOV #FT11,SCOLP ;SET SCOPE ADDRESS 

79 004614 004767 005122 JSR PC, INIT1 

80 004620 012767 000300 174156 MOV #300 ,UDES ;SET TC= ALL NRZ,NORM,ODD 
81 004626 012767 177777 174052 MOV #-1,F CNT ;SET FC= ALL OVER 

82 004634 012767 177777 174046 MOV #-1,WCNT SET WC= ALL OVER 

63 004642 012767 177777 174034 MOV #-1,BADDR ;SET BA= ALL OVER 

84 004650 012767 000001 174046 MOV #1,RDYDX SET DELAY 

85 004656 012767 000001 174042 MOV #1,0PDYX ;SET OP DELAY 

86 004664 012767 000001 174104 MOV #1,FUN ;SET NOP FUNCTIONS CODE 
oe 004672 004767 003750 JSR PC, EXEC :GO EXECUTE COMMAND 
89 
90 
91 
92 


004700 012767 015601 173770 MOV #ASFT11,EMADOR 

004706 004767 004144 JSR PC,ERCHK :GO CHECK REGISTER 
004712 004767 004760 JSR PC, ITER ;GO SEE IF ITERATIONS 
004716 000167 175600 JMP TSCD2 sRETURN TO SCHEDULAR 


J 3 
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CZTUJA.P11 07-JUN-78 16:58 SEQ 0035 
1193 sREWIND TESTeeere 
1194 
1195 004722 000240 FT12: NOP 
1196 004724 012767 004722 174030 MOV #FT12,SCOLP 
1197 004732 004767 005004 JSR PC, INIT1 ;GO INITIALIZE 
1198 004736 052777 001700 173666 BIS #1700,aTC ; SET Me NRZ ,NORMAL 
1199 004744 012767 177760 173734 MOV #-20,F CNT :SET FC=20 
1200 004752 012767 177770 173730 MOV #-10,WCNT ;SET WC=10 
1201 004760 012767 016232 173716 MOV #WDATA,BADDR :SET BA=WRITE PUFFER 
1202 004766 012767 000007 174002 MOV #7,FUN ;SET REWIND OP CODE 
1203 004774 004767 003626 JSR PC EXEC ;GO EXECUTE COMMAND 
1204 005000 000240 NOP 
1205 005002 032777 020000 173602 FTI2A: BIT #20000,aDS 
1206 005010 001374 BNE FTI2A AWAIT PIP 
1207 005012 012767 015621 173656 MOV WHSFTI2, ‘oo 
1208 005020 004767 004032 JSR PC, ERCHK ;GO CHECK FOR ERROR 
1209 005024 004767 004646 JSR PC, ITER ;GO SEE IF ITERATION 
bs te 005030 000167 175466 JMP TSCD2 ;RETURN TO SCHEDULAR 


CZTU 


MIMIMIMINIMMPI AD 
DD et eet et 2d oe? oo 


OODONAULS wr > 


000240 


ee BASIC FUNCTION TEST 
P11 07-JUN-78 16:58 


102300 


173514 
000100 
017744 
000200 
000077 
013541 
003364 


003610 
173440 


173372 
002000 


000400 
002000 


173436 
000100 


177524 
175126 
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173702 


173704 
173670 
173560 


173536 


173504 


173456 


173422 


173406 


173454 


173444 
173436 


173326 


FT13: 


FTI3A: 


FT13B: 


FT13C: 


FT13D: 


FTI3E: 
FT13X: 


13-JUN-78 


ey 
SEQ 0036 


K 3 
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SWRITE/READ TESTe*eet 


#102300,STMSK ;IGNORE DATA RELATED ERRORS 
#1 ,RDYOX 


#1 gl 

#100,R ;SET RECORD COUNT 

ansFis. NEMADDR :SET TEST HEADER 

PC ,DSUP ;SET UP ALL ONES DATA PATTERN 

#300, UDES ;REWIND TO BOT 

PC ,RWND ; SET = BPI, NORMAL 

#-200,FCNT SET F 

#-100 ,WCNT ; SET uc 

#WOATA,BADDR :SET BA 

#61,FUN :SET WRITE OP-CODE 

#ASG12,ERRP 

PC EXEC +60 EXECUTE COMMAND 

SCOLP :NO SCOPE LOOP 

PC ,ERCHK :GO CHECK ERROR 

RCNT ;SEE IF DONE ALL 

FT138 :1F NOT: BR 
#100,RCNT ;SET RECORD COUNT 

#RDATA,BADDR 

#200..BADDR ;SET BA 

#77 ,FUN ;SET READ REVERSE OP-CPDE 

#ASG13,ERRP 


PC EXEC :GO EXECUTE COMMAND 


PC,ERCHK 3GO CHECK ERROR 
RCNT sSEE IF READ ALL 
FT13C :1F NOT:BR 
#200 ,BADOR :SET BA 
FUN :SET READ FORWARD OP-CODE 
#ASG14,ERRP 


00,RCNT ;SET RECORD COUNT 


PC EXEC ;GO EXECUTE COMMAND 
PC ,ERCHK :GO CHECK ERRORS 
RCNT ;SEE IF DONE ALL 
FT13D IF NOT:BR 

#2000 ,UDES :SEE IF DONE PE 
FT13x IF SO: BR 

#400 ,UDES :SELECT NEXT DENSITY 
#2000 ,UDES :SEE IF PE 

FTI3E IF NOT: BR 

NRZOF sSEE IF NRZ ONLY 
FT13x :1F SO: BR 

#100,RCNT ;RESET RECORD COUNT 
FTI3A ;GO DO NEXT DENSITY 
TSCD2 :RETURN TO SCHEDULAR 
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CZTUJA.P11 07-JUN-78 16:58 SEQ 0037 
1261 :SPACE TESTetee# 
1262 
1263 005374 000240 F714: ##NOP 
1264 005376 012767 015673 173272 MOV WASFT14,EMADDR ;:SET TEST HEADER 
1265 005404 012767 001700 173372 MOV #1700,UDES :SET NRZ,NORMAL 
1266 005412 004767 0035342 FT14A1: JSR PC, RWND 3GO INITIALIZE 
1267 005416 012767 000100 173266 MOV #100,RCNT sSET NUMBER OF RECORDER 
1268 005424 012767 177777 010600 MOV #-1,WDATA 3;SET DATA PATTERN 
1269 005432 012767 177700 173246 MOV #-100,F CNT ;PRESET FRAME CNT 
1270 005440 012767 177740 173242 MOV #-40,WCNT ;PRESET WORD CNT 
1271 005446 004767 004270 FTI4A: JSR PC, INIT1 3G0 REWIND 
1272 005452 012767 001000 173246 MOV #1000 ,OPDYX 
12753 005460 012767 040000 173236 MOV #40000. RDYDX 
1274 005466 012767 000061 173302 MOV #61,F ;SET WRITE OP-CODE 
1275 005474 012767 102300 173244 MOV 7103300, STMSK sMASK DATA RELATED ERRORS 
1276 005502 052777 000010 173100 BIS #10,acs : INHIBIT BUS ADDRESS INCREMENT 
1277 005510 004767 003112 JSR PC EXEC :GO EXECUTE COMMAND 
1278 005514 000240 NOP 
1279 005516 012767 014576 173170 MOV #ASG46,ERRP sSET ERROR CODE 
1280 005524 004767 003326 JSR PC ,ERCHK 3GO CHECK ERRORS 
1281 005530 005767 173244 TST SERFL sSEE IF ERROR 
1282 005534 001402 BEQ FT14A2 :I1F NOT: BR 
1283 005536 000167 000466 JMP FT14x sELSE EXIT 
1284 005542 162767 000001 173136 FT14A2: SUB #1,FCNT sBUMP FC 
1285 005550 032767 000001 173130 BIT 41,FCNT SEE IF SHOULD BUMP WC 
1286 005556 001403 BEQ FTI4A3 : IF NOT: BR 
1287 005560 162767 000001 173122 SUB #1,WCNT :BUMP WC 
1288 005566 005367 173120 FT14A3: DEC RCNT sSEE IF DONE ALL 
1289 005572 001325 BNE FTI4A “WRITE ALL RECORDS 
1290 005574 000240 NOP 
1291 005576 012767 000100 173114 MOV #100,RRD sPRESET RECORD POSITION 
1292 005604 012767 000176 173110 MOV #176,RFD 
1293 005612 000240 NOP 
1294 005614 012767 177701 173106 MOV #-77,SCNT :SET SPACE AMOUNT 
1295 005622 012767 000033 173146 FT14B: MOV ag hr, :SET OP-CODE SPACE REVERSE 
1296 005630 004767 002772 JSR PC,EXE :60 EXECUTE COMMAND 
1297 005634 012767 014647 173052 MOV At ERRP :SET ERROR CODE 
1298 005642 004767 003210 JSR PC, ERCHK :60 CHECK ERRORS 
1299 005646 005767 173126 TST SERFL sSEE IF ERROR 
1300 005652 001166 BNE FT14x ;IF SO: BR 
1301 005654 004767 000070 JSR PC, FTI4RR 3GO READ REVERSE + CHECK DATA 
1302 005660 000240 NOP 
1303 005662 012767 000031 173106 MOV #31,FUN :SET SPACE FORWARD OP-CODE 
1304 005670 005267 173034 INC SCNT :SET SPACE AMOUNT 
1305 005674 001555 BEQ FT14x :1F DONE: BR 
1306 005676 004767 002724 JSR PC EXEC :GO EXECUTE COMMAND 
1307 005702 012767 014622 173004 MOV #nsG47, ERRP sSET ERROR CODE 
1308 005710 004767 003142 JSR PC,ERCHK :GO CHECK ERROR 
1309 005714 005767 173060 TST SERFL sSEE IF ERROR FLAG 
1310 005720 001143 BNE FT14x :IF NO: BR 
1311 005722 004767 000064 JSR PC, FTIGRF :60 READ FORWARD FOR POSITION CHECK 
1312 005726 006240 NOP 
1313 730 005267 172774 INC SCNT sDECREMENT SPACE AMOUNT 
1314 005734 001535 BEQ FT14X s1F DONE: BR 
1315 005736 005267 172756 INC RRD : BUMP DATA EXPT 
1316 005742 005367 172754 DEC RFD sBUMP DATA EXPT 
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CZTUJA.P11 07-JUN-78 16:58 SEQ 0038 
1317 005746 000725 BR FT148 
1318 005750 000240 FT14RR: NOP 
1319 005752 012767 017744 172724 MOV #RDATA,BADDR ;SET BA 
1320 005760 012767 000077 173010 MOV #77,FUN :SET READ REVERSE OP-CODE 
1321 005766 004767 002634 JSR PC EXEC :GO EXECUTE COMMAND 
1322 005772 000240 NOP 
1323 005774 016705 172720 MOV RRD,R5 
1324 006000 020577 172602 CMP R5,aFC ;SEE IF CORRECT RECORD 
1325 006004 001020 BNE FTIGRER :1F NOT: BR 
1326 006006 000167 000026 JMP FTI4EC ;GO CLEAR RH11 ERROR BIT 
1327 006012 000240 FTI4RF: NOP 
1328 006014 012767 000071 172754 MOV #71,FUN ;SET READ FORWARD OP-CODE 
1329 006022 004767 002600 JSR PC EXEC :GO EXECUTE COMMAND 
1330 006026 016705 172670 MOV RFD RS 
1331 006032 020577 172550 CMP R5,aFC sSEE IF CORRECT RECORD 
1332 006036 001003 BNE FTIGRER :1F NOT: BR 
1333 006040 004767 003676 FTI4EC: JSR PC, INIT1 CLEAR RH 
1334 006044 000207 RTS PC ; RETURN 
1335 006046 000240 FTI4RER: NOP 
1336 006050 032777 020000 172560 BIT #20000 ,aSwR ;SEE IF PRINT INHIBITED 
1337 006056 001060 BNE FT14R3 :IF SO: BR 
1338 006060 012704 015673 MOV #ASFT14 ,R4 
1339 006064 004767 004276 JSR PC, TTOUT ;PRINT HEADER 
1340 006070 012704 013441 MOV #ASG9I,R4 
1341 006074 004767 004266 JSR PC, TTOUT sPRINT ERROR TYPE 
1342 006100 012704 0135674 MOV #ASG20,R4 ;SET NRZ TAG POINTER 
1343 006104 032767 002000 172672 BIT #2000 ,,UDES :SEE IF PE 
1344 006112 001402 BEQ FT14R0 : IF NOT: BR 
1345 006114 012704 013702 MOV #MSG21 ,R4 SELSE SET PE TAG POINTER 
1346 006120 004767 004242 FT14R0: JSR PC, TTOUT sPRINT TAG 
1347 005124 032767 000002 172644 BIT #2,FUN :SEE IF READ REVERSE 
1348 006132 001003 BNE FT14R1 :IF SO: BR 
1349 006134 012704 013654 MOV WASGI7 RS 
1350 006140 000402 BR FTI4R2 ;GO PRINT 
1351 006142 012704 013634 FT14R1: MOV #MSG16,R4 
1352 006146 004767 004214 FTI4R2: JSR PC, TTOUT sPRINT FRWD/REV 
1353 006152 012704 013707 MOV #MSG22,,R4 
1354 006156 004767 004204 JSR PC, TTOUT :PRINT EXPT TAG 
1355 006162 010503 MOV R5,R3 
1356 006164 042703 177700 BIC #177700,R3 MASK RECORD NUMBER 
1357 006170 004767 004322 JSR ?C,0CTP sPRINT EXPT RECORD NUMBER 
1358 006174 012704 013717 MOV #MSG23,R4 
1359 006200 004767 004162 JSR PC, TTOUT sPRINT RCVD TAG 
1360 006204 017703 172376 MOV aFC,R5 
1361 006210 042703 177700 BIC #177700, R3 MASK RECORD NUMBER 
1362 006214 004767 004276 JSR PC ,OCTP ;PRINT ACTUAL RECORD NUMBER 
1363 006220 005777 172412 FTIGRS: TST @SUR ;SEE IF HALT ON ERROR 
1364 006224 100001 BPL FT14x IF NOT: BR 
1365 006226 00 HALT 
1366 30 005767 172556 FT14X: TST NRZOF ;SEE IF NRZ ONLY 
1367 006234 001011 BNE FT14Xx IF SO: BR 
1368 36 032767 002000 172540 BIT #2000 ,UDES [SEE IF DONE PE 
1369 006244 BNE FTI4Xx :1F SO: BR 
1370 006246 012767 002300 172530 MOV #2300,UDES :SET TO PE 
1371 006254 000167 177132 JMP FTI4A1 :D0 IN PE 
1372 006260 000167 174236 FTI4XX: JMP TSCD2 sRETURN TO SCHEDULAR 
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172424 
172420 
172362 


172356 
172450 
172434 
172342 


172332 


172272 
172352 
172272 


172246 
172272 


FT15: 


FTI5A: 
FT15B: 


FT15X: 


sERASE TESTe*** 


STMSK 
#100,RDYDX 
#10,0 


PDYX 
#MSFT15 ,EMADDR 
RWND 


PC, 
#RDATA,BADDR 
#1700, UDES 
#25,FUN 
#200,RCNT 


PC EXEC 
#ASG46,ERRP 


#71,FUN 
#40 ,,RDYDX 
PC EXEC 


#ASG60,ERRP 
#20000, STMSK 
PC ,ERCHK 
TSCD2 


39 


;SET TEST HEADER 
; REWIND 


:SET BA 

7SET NRZ, NORMAL 
sSET ERASE OP-CODE 
:SET TO ERASE 128 TIMES 
3G0 EXECUTE COMMAND 
sSET ERROR CODE 

:GO CHECK ERRORS 
;SEE IF ANY ERRORS 
sIF SO EXIT 

;SEE IF DONE ERASING 
sIF NOT: BR 


;REWIND 

sSET WC 

sSET READ FORWARD OP-CODE 
sSET DELAY 

:GO0 EXECUTE COMMAND 

sSET ERROR CODE 


:GO CHECK ERRORS 
sRETURN TO SCHEDULAR 


SEQ 0039 
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002200 
002536 
002000 
172114 


002300 
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172156 
172152 
172232 
172170 
172130 
172174 
172132 
172072 
172136 


172042 


172114 


172076 


FT16: 


FT16A: 
FT16B: 


FT16X: 
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SEQ 0040 


TAPE MARK WRITE/READ TEST#*ee* 


#1,RDYDX 
#1000 ,OPDYX 
#ASFT16,EMADDR 
#1700, UDES 
PC ,.RWND 
#-20,F CNT 
#-10,WCNT 
#27,FUN 

PC EXEC 
#1000, STMSK 
#MSG12,ERRP 


#1000, STMSK 
#SG13,ERRP 
PC, ERCHK 
PC. THCHK 
#71,FUN 
PC,EXEC 
#ASG14  ERRP 


;SET HEADER 
;SET TO NRZ,NORMAL ,ODD 
EWIND 


3FC=20 

:WC=10 

7SET WRITE TAPE MARK OP-CODE 
COMMAND 


; M SET 

;SET USED REVERSE OP-CODE 
:G0 EXECUTE COMMAND 

;SET FCE ERROR MASK 

SET ERROR CODE 


SEE IF DONE PE 
O: BR 

SEE IF WRZ ONLY 

:IF SO: BR 

:SET PE, NORMAL 

; INITIALIZE 

:D0 IN PE 


;D0 ITERATIONS 
sRETURN TO SCHEDULAR 
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CZTUJ 
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007266 
007274 


005067 


012767 
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171760 


171754 
002366 


000100 
000020 
171632 
177600 
177400 


016232 
000061 


001504 


171632 
171564 
177570 
000033 


171536 


002150 
171436 


000031 


013654 
000031 
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171736 
172036 


172016 
171736 
71732 


1 
171740 
171700 


171646 


171512 


171420 
171474 


FT17: 


FTI7A: 
FT17B: 


FTI7C: 


FT17D: 


FT17D1: 
FTI7E: 
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3; TAPE MARK SPACE TEST#eeteeneee 


RCNT 
#MSFT17,EMADDR 


#1700 ,UDES 
PC ,RWND 


#27,FUN 
#40000 ,RDYDX 
#40000 , OPDYX 
PC EXEC 
#102300, STMSK 
#MSG15,ERRP 


PC, TACHK 


- #100,RCNT 
FT17D 


#20,RCNT 

RCNT, TEMP 

#-200 ,WCNT 

#-400,F CNT 

#WDATA,BADDR 
#61, FUN 


PC EXEC 
#ASG12,ERRP 
#102500 ,STMSK 


#33,FUN 
#ASG16,ERRP 
#-200,SCNT 
#5,,RCNT 

PC, INIT1 


PC EXEC 
bg a 


FTI 
#"SG17,ERRP 
#31,FUN 


;SET HEADER 
;SET TO NRZ 
sREWIND TAPE 


;SET DRY DELAY 

:SET OP DELAY 

:GO WRITE TM 

MASK DATA RELATED ERRORS 
;SET ERROR TYPE 

:GO CHECK ERROR 


:SEE IF ERROR 
:IF SO: BR 
:GO SEE IF TM SET 


sSEE IF DONE PATTERN 

sIF SO: BR 

;ADD 20 TO RECORD COUNT 
OUNT 


SAVE RECORD C 
:WC=128 


7 FC=256 
:BA=WRITE BUFFER 
:SET WRITE OP CODE 


:GO WRITE 


:SET ERROR CODE 

sMASK DATA RELATED ERRORS 
;GO CHECK ERROR 

Ly If _— 


;IF SO: 

:SEE IF DONE ALL 
7 IF NOT: BR 

:ELSE GO DO TM 


;SET SPACE REVERSE 

;SET ERROR CODE 

;SET TO 200 RECORDS 

:SET NUMBER OF OPS TO DO 


: SO: BR 

:GO SEE IF TM SET 
;SEE IF DONE SPACES 
sIF NOT: BR 

: SEE IF DONE FORWARD 
sIF SO: BR 

SET ERROR CODE 

sSET TO SPACE FORWARD 


SEQ 0041 
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CZTUJA.P11 07-JUN-78 16:58 SEQ 0042 
1496 007302 000167 177672 JMP FT17D1 :D0 FORWARD 
1497 007306 032767 002000 171470 FTI7F: BIT #2000 ,UDES ;SEE IF DONE PE 
1498 007314 001010 BNE FT17X :1F SO: BR 
1499 007316 005767 171470 TST NRZOF ; SEE IF NRZ ONLT 
1500 007322 001005 BNE FT17X :1F SO: BR 
1501 007324 012767 002300 171452 MOV sie UDES SET TO PE 


1502 007332 000167 177410 JMP :GO PE 
1503 007336 000167 173160 FT17X: JMP rseD2 :RETURN TO SCHEDULAR 
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171330 
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171324 
171422 
171306 


171350 
171254 


171222 


FT20: 


FT20A: 


FT20B: 


FT20C: 


FT20Xx: 
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sWRITE CHECK TESTeetterenese 


#MSFT20,EMADDR ;SET HEADER 
,RWN sREWIND 

#3,PATRN 

PC .DSUP :GO SET PATTERN 3 

#WDATA,BADDR  :SET BA 

#-400,F CNT “SET FC 

#-200,WCNT “SET WC 

#1700,UDES :SET NRZ NORMAL 

#61,FUN >SET WRITE OP CODE 

PC, EXEC "GO WRITE RECORD 

#MSG46,ERRP “SET ERROR CODE 

PC,ERCHK "GO CHECK ERROR 

SERFL “SEE IF ERORR 

FT20x :IF SO: BR 

#SG16,ERRP “SET REVERSE ERROR TAG 

#57,FUN >SET REVERSE WRITE CHECK OP-CODE 

#376, BADOR :SET BA FOR REVERSE CHECK 

PC, EXEC >GO DO REVERSE CHECK 

PC ERCHK :GO CHECK ERROR 

#MSG17,ERRP >SET FORWARD TAG 

#51, FUN *SET FORWARD CHECK OP CODE 

#376, BADDR ?SET BA FOR FORWARD CHECK 

PC, EXEC =GO DO FORWARD CHECK 

PC .ERCHK :GO CHECK ERROR 

#2000, UDES :SEE IF DONE PE 

FT20x : IF SO: BR 

NRZOF >SEE IF NRZ ONLY 

FT20X IF SO: BR 

#2300, UDES “ELSE SET PE 

PC, INIT? :GO INIT 

FT20A :D0 IN PE 

PC, ITER “DO ITERATIONS 

TSCD2 :RETURN TO SCHEDULAR 


SEQ 0043 


CZTU 


007602 
007610 


012767 
004767 


004767 
000167 
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016057 
001144 
000003 
001632 
016232 
176340 
177160 
001700 
000061 
000736 
013523 
001154 
000720 
001144 
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177160 
177470 
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001012 


001440 


014474 
007740 
173364 
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171066 =FT21: 


171164 
171050 
171044 
171040 
171126 
171112 


171016 


170760 
170754 


170730 


171000 
170704 
170564 
170654 
170650 
170534 


170654 
170672 


FI21A: 


FT21X: 


13-JUN-78 


sERASE HEAD TESTe*ere 
#MSFT21,EMADDR 
P D 








#-1440, FCNT 


#1700,UDES 
#61,FUN 


PC, EXEC 
#ASG12,ERRP 
PC, ERCHK 


PC ,RWND 
PC EXEC 


PC ,RWND 

#RDATA,BADOR 
#71,FUN 

PC, EXEC 

#nsGi4, ERRP 

PC, ERCHK 


#10,acs 
#-1440,FCNT 
#-620 ,WCNT 
PC, EXEC 
#1440, aFC 
FT21Xx 
#MSG44 ,ERADD 
#FT21A,SCOLP 
PC,FISER 
PC, ITER 
TSCD2 
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:60 


:GO SET PATTERN 3 
7SET BA=WRITE BUFFER 
:SET FC=800 

:SET WC=400 

7SET WRZ, NORMAL 
sSET WRITE OP-CODE 


:YES 00 Ww 


:IiF SO: 


;SET ERROR CODE 


;SET TEST HEADER 
REWIND 


:GO CHECK FOR ERROR 
WRITE 2 
:YES CHECK FOR ERROR 


:GO REWIND 
3-4 FC=400 


wC=200 
‘oo. REWRITE RECORD 1-WH TO EH 


s REWIND 
7SET BA=READ BUFFER 
:SET FC=400 

:SET wWC=200 

:SET READ OP-CODE 
:GO READ RECORD 1 
:SET ERROR CODE 

:GO CHECK FOR ERROR 


fs a BA INCREMENT 
:SET FC=800 
;SET WC=400 


:GO READ RECORD 2 
SEE IF _ RECORD 2 


“GO SEE IF ITERATION 
“RETURN TO SCHEDULAR 


SEQ 0044 


CZTU 


UJA.P 


010300 


012767 


000167 
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016106 


000442 


000007 
000200 


000010 
000404 


014674 


000002 


014722 
010104 
173164 
001376 
172216 
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170564 


170654 
170546 
170542 
170536 
170616 


170400 
170404 


170506 
170462 
170506 
170340 


170454 
170472 


FT22: 


FT22A: 


FT22B: 


FT22X: 
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;BUFFERED COMMAND TEST*ttere 


#3,R0 
#1700,UDES 
#WDATA,BADDR 
#-400,WCNT 
#61,FUN 
PC.EXEC 

RO 


FT22A 


#7,aC1 
#200,aDS 
FT22B 
#10, RDYDX 
PC,EXEC 


#ASG49,ERRP 
#102300, STMSK 
PC ,ERCHK 
#2,aDS 


FT22x 
#MSG50,ERADD 
#FT22,SCOLP 
PC .FTSER 
PC,ITER 
TSCD2 


#MSFT22 ,EMADOR 
WND 


;SET TEST HEADER 

;GO REWIND 

;SET NUMBER OF WRITES 
;SET TO NRZ NORMAL 
:SET BA=WRITE BUFFER 
:SET FC=1000 

:SET WC=400 

:SET WRITE OP-CODE 
3:G0 DO WRITE 

;SEE IF DONE ALL 

: If NOT: BR 


;START REWIND 
;SET LONG READY DELAY 
; ISSUE BUFFERED WRITE 


;SET ERROR CODE 
sMARK DATA ERROR 


:GO CHECK ERROR 
:SEE IF By ol IS SET 


:1F NOT: 
:SET ERROR CODE 


:GO DO ERROR 
;GO SEE IF ITERATION 
sRETURN TO SCHEDULAR 


SEQ 0045 


TMO2/TUSS BASIC FUNCTION TEST 
CZTUJA.P11 


010520 


005767 


000167 


07-JUN-78 16:58 


170372 
016143 


000240 


001346 
000021 
000220 


000004 
020000 


000002 


014760 
010304 
172774 
141000 
170136 


015014 


171776 


MACY11 30(1046) 


170356 
170452 
170344 
170340 


170334 
170414 


170374 


170170 


170150 


170264 
170302 


170230 
170246 


FT23: 


FT23A: 


FT238: 


FT23C: 


FT23xX: 


13-JUN-78 


H 4 
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;READ-IN PRESET TEST#ttee 


SLVN 


FT23x 
#ASFT23,EMADDR 
PC, INITI 


#1700, UDES 
#UDATA,BADDR 
#-400,F CNT 
#-200 ,WCNT 
#61,FUN 
PC,EXEC 


PC, INIT1 
#21,FUN 
PC EXEC 
RO 


#4 ,R3 
#20000,aDS 
FT238 


FT 
#ASG51.,ERADD 
#FT23,SCOLP 


TC, 

R1, (RO) 
FT23x 
#MSG52,ERADD 
#FT23,SCOLP 


PC,FT2ER 
TSCD2 


+h ig Ave SELECT=0 


FN 
Set a HEADER 


;SET TO NRZ NORMAL 


: SET BA=WRITE BUFFER 
:SET FC=400 

:SET wWC=200 

;SET WRITE OP-CODE 
:GO DO WRITE 


; INITIALIZE 
:SET READ-IN PRESET OP CODE 
:GO DO COMMAND 


;SET MULT 
;SEE IF “4 RESET 


s1F sO 
;AWAIT PIP RESET 


: DELAY 
:SEE IF BOT 


:IF SO: BR 
;SET ERROR CODE 
:GO DO ERROR 


:SEE IF EXPT=RCVD 
IF SO: BR 

SET ERROR CODE 

;CLEAR SCOPE ADDRESS 
:GO DO ERROR 

;RETURN TO SCHEDULAR 


SEQ 0046 


CZTU 


010524 


010622 


032777 


000167 


age BASIC FUNCTION TEST 
P11 07-JUN-78 16:58 


004000 
016176 


004000 


010000 
170162 


171674 


MACY11 30(1046) 


170104 


170134 


170024 


170020 


170130 


13-JUN-78 
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sREWIND: OFF LINE TEST***e* 


FT24: BIT 


4 
FT24A: DEC 


FT24X: MOV 
JSR 
FT24XX: JMP 


#4000 .aSwR 
FT24XX 

#ASFT24 ,EMADDR 
C,INITI 

#3,aC1 

#4000 ,R0 

RO 

FT24A 

#10000.,aDS 
FT24Xx 

SCOLP 
#ASG53,ERADD 
PC,FTSER 
#ASG54 ,R4 


PC, TTOUT 
TSCD2 


+ If . CONTINUOUS MODE 


SET TEST HEADER 
:GO INITIAIZE 
; ISSUE REWIND: OFF LINE COMMAND 


; DELAY 


;SEE IF MOL IS RESET 
:IF SO: BR 


S 
;ASSURE NO SCOPE 
:SET ERROR CODE 
;GO DO ERROR 


sPRINT ON LINE REQUEST 
;RETURN TO SCHEDULAR 


SEQ 0047 


TMO2/TU4S BASIC FUNCTION TEST 
CZTUJA.P11 


010756 


000240 
056777 


000207 


07-JUN-78 16:58 


170150 
170046 
170036 
170026 
000031 
000033 
170024 
170062 
170000 


000200 


167754 


MACY11 30(1046) 


170110 
170100 
167700 
167662 


167656 


13-JUN-78 
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;COMMAND EXECUTE SUBROUTINE*+++« 


EXEC: NOP 
3 

EXECA: MOV 

EXECB: NOP 


C 
EXECC: BIT 


EXECX: MOV 
EXECXA: DEC 


BNE 
EXECXX: RTS 


UDES ,aTC 
WCNT ,awc 
FCNT ,a@FC 
BADDOR .@BA 
#31,FUN 


SCNT ,aFc 
FUN,@C1 
RDYDX,R3 
R4 
#200,aDS 
EXECX 


EXECC 
OPDYX,R3 
R3 
EXECXA 
PC 


;LOAD TAPE CONT 
AD WC 


;LOAD FC 


;LOAD BA 
;SEE IF SPACE FORWARD 
SO: BR 


i IF 

:SEE IF SPACE REVERSE 
;1F NOT: BR 

:SET SPACE COUNT 


;LOAD OP-CODE + GO 
;SET DELAY 


;SEE IF ORY 
; IF SO: BR 


;DELAY FOR DRY 


; DELAY 
;RETURN TO CALLER 


SEQ 0048 


TMO2/TU45 BASIC FUNCTION TEST 
CZTUJA.P11 


1705 
1706 


ad ad 
S35 
S&S 


“OO VO@NOULSWN-O 


ee ee ee ee ed aed et et od od 
Nm 
Nm 


=" 
“NN 
mn 
ew 


010760 


011044 
011050 
011054 


000240 
0 


000207 


07-JUN-78 16:58 


040000 


020000 
000002 


167646 
001332 
013234 
001322 
171452 
000666 


K 4 
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167604 


167600 RWNDB: 


167570 


sREWIND SUBROUTINEttee* 


PC, INIT1 
#7,aC1 
#40000 ,R0 
RO 


RWNDA 
#20000,aD0S 
RWNDB 


PC, INIT1 
PC 


49 


: INIT 
: START REWIND 


; DELAY 

sAWAILT PIP 
;SEE IF BOT 
:1F SO: BR 
sPRINT HEADER 


;PRINT REWIND ERROR 
;RETURN TO SECHEDULAR 


; INIT 
sRETURN TO CALLER 


SEQ 0049 


TMO2/T''45 BASI 
P11 


CZTUJA. 


01 


oO 
VO rORONORAPEN 


On 


eee eee cee ee ee ed ee ee ee etd aed od oe od od 
FD FD FAD FAD FAD FAD FAD FAD PD cet ce ce ed ed ek et et od ot ot ot ot os 


01 
011372 
011376 


005067 


C FUNCTICN TEST 
07-JUN-78 16:58 


167716 
167524 
040000 


167506 
002000 


000200 
167616 


000001 
020000 


167520 


167512 
167510 
001174 
167516 


001162 
013674 
002000 
013702 
001136 
167462 


001124 
010000 


015146 


001102 


MACY11 30(1046) 


167662 
167514 


167670 
167622 


167640 
167470 


167414 


167366 


ERCHK: 


ERPT: 


ERPTA1: 
ERPTG: 


ERPTA: 


ERPTIA: 


ERPTB: 


ERPTB1: 


ERPTC: 


13-JUN-78 
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sERROR CHECK SUBROUTINE***+* 


SERFL 

@DS ,DSAV 
#40000,aDS 
ERPT 

PC 


@ER,R4 
#2000 ,UDES 
ERPTA1 
#200, STMSK 
STASK ,R4 
RPTX 
#1,SERFL 
#20000 ,aSwR 
ERPTD 
HDRFL 
ERPTA 


HDRFL 
EMADDR ,R4 


arc, 
PC ,OCTPE 


; CLEAR 


FLAG 


;SAVE DRIVE STATUS REGISTER 
ERROR 


;SEE IF 
:IF SO: 


; RETURN 
;GET ERROR REGISTER 
;SEE IF PE 


s1F $0: 
; RESET 
DONT CA 


; MASK 
: IF NO 


BR 
PEF MASK 

RE BITS 
UNEXPECTED ERRORS: BR 


:SET FLAG 

;SEE IF SHOULD PRINT ERRORS 
:1F NOT: BR 

;SEE IF DONE HEADER 

:1F SO: BR 

:SET HEADER FLAG 


;PRINT 


HEADER 


;GET ERROR CODE 


:1F NON 
:PRINT 
sSET NRZ 


E: BR 
ERROR CODE 
TAG 


;SEE IF PE 

sIF NOT: BR 
sELSE SET PE TAG 
: NT TAG 


PRINT 


PRI 

: IF 

;PRINT 
; PRINT 
; PRINT 
: PRINT 
;PRINT 
;PRINT 
;PRINT 
;PRINT 
:PRINT 
;PRINT 
;PRINT 


[SEE IF CODE 2 
IF NOT: BR 


sPRINT CODE 2 
;SEE IF ITERATION 
NOT: BR 


ITER TAG 
ITERATION 
REGISTER TAG 
CS1 


SEQ 0050 


Mm 4 
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CZTUJA.P11 07-JUN-78 16:58 SEQ 0051 
1781 011402 005777 167230 ERPTD: TST aSWR ;SEE IF HALT ON ERROR 
1782 011406 100001 BPL ERPTX ;1F NOT: BR 
1783 011410 000000 HALT 
1784 011412 004767 000324 ERPTX: JSR PC, INIT1 : INIT 
fa 011416 000207 ERPTXX: RTS PC ; RETURN 


ss thy: Rue FUNCTION He 


CZTUJA.P 


1808 


Senearcn es 


ee ee ee ee ee ee ae ee a ae F 
_—©oO 


ROR at et ot ot od oo od od od 


011420 


011456 


011460 


011550 
011552 
011566 
011570 


011574 
011576 


032767 


012703 


000207 


012701 


005001 
000167 


07-JUN-78 16:5 


000004 


167342 
015156 


177460 
167240 


016232 
167314 


001020 
010000 
000640 


016232 
140300 


000640 
017744 


177777 
000640 


177706 


17775¢ 


MACY11 30(1046) 


167324 


167250 


167116 


TACHK: 


TMCHKO: 
TMCHK1: 


DSUP: 
DSO: 


DS1: 


DS2: 


DS3: 
DS4: 


DAT1: 
DATIA: 
DAT1B: 


DAT2: 
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s TAPE MARK STATUS CHECKeetetereee 
BIT #4,DSAV sSEE If TM SET 
F NOT: BR 


BEQ TACHK1 re | 

RTS PC ;ELSE RETURN 

TST SERFL +o IF HAD ERROR 
BNE O: BR 


TACHKO FS 
MOV #MSG57,ERRP1 SET ERROR CODE 2 
JSR PC ,ERPTG :GO PRINT TM ERROR 


CLR ERRP1 ;CLEAR CODE 2 FLAG 

RTS PC : RETURN 

:DATA SETUP ROUTINEt*teeeteene 

NOP 

MOV #WDATA,RS :R3 = ADDRS OF WRITE BUFFER 
ne PATRN,R1 :R1 = PATTERN SELECTOR 


ROL R1 sMAKE PATTERN SELECTOR EVEN 
:GO GENERATE PATTERN 


JMP @DATBL(R1) 
BIT _— 


;SEE IF SEVEN TRACK 
DS F NOT: BR 
MOV #640,R2 


Hy | 
;SET BUFFER SIZE 


MOV #WDATA,R1 ;SET START OF BUFFER 
BIC #140300,(R1)+ MASK FOR 7 CH 

DEC R2 ‘_- _DONE 

BNE DS2 : BR 

MOV #640 ,R2 ROSBUFFER S IZE +2 


:R1=READ DATA START 
CLR is :CLEAR BUFFER 


DEC R :SEE IF DONE ALL 
BNE DS4 ;IF NOT: BR 
RTS PC EXIT 
ALL ONEStetteeeeee 
MOV #-1,R1 =R1=DATA 


sR2=WORD COUNT +2 


MOV R1,(R3)+ ;LOAD BUFFER 


DEC R2 “SEE IF DONE 
BNE DATIB “IF NOT: BR 

JMP bS1 “RETURN 

sALL ZEROStexereeeee 

CLR R1 :R1=DATA 

JMP DATIA “LOAD BUFFER 


SEQ 0052 


—_ OO 


TMO2/TU45 BASIC FUNCTION TEST 
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011602 
011606 


011612 


011672 


011676 


011740 


017742 


07-JUN- 


012701 
000167 


005001 


000207 


125125 
177744 


001500 


177646 


040000 


167104 


167064 


010000 
167034 
167026 
167022 


167024 


000040 
166722 
166716 


MACY11 30(1046) 


166772 


166730 


166724 


166636 


166630 
166644 


DATS: 


DAT4: 
DAT4A: 


SCOPE: 


SCOPE1: 


SCOPE2: 


ITER: 


ITERO: 
ITER1: 


INIT: 
INIT2: 
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sONE/ZERO IN ALTERNATING CHARACTERS*tetteeene 


MOV #125125,R1 :R1=DATA 

JMP DATIA ;LOAD BUFFER 

TALL BITS O0-377eeereeeece 

CLR R1 sR1=STARTING DATA 
MOV #1500,R2 *R2= CHARACTER COUNT 
MOVB R1,(R3)+ LOA BUFFER 

INCB R1 sBUMP DATA 

DEC R2 : SEE IF DONE 

BNE DATGA :1F NOT: BR 

JMP DS1 ; RETURN 


:SCOPE LOOP ON ERROR SUBROUTINE*t*#ee2e%%0% 


BIT #40000 ,aSuR ;SEE IF LOOP ON ERROR 
SCOPE1 :I1F SO: BR 


ab PC ELSE EXIT 

TST SCOLP ;SEE IF SCOPE ADDRESS 
BNE SCOPE2 ;IF NOT: BR 

RTS PC sELSE EXIT 

TST (SP)+ sRESET STACK 

TST (SP)+ ;BUMP STACK 

NOP 

NOP 


JMP @ScoLP ;LOOP ON ERROR 
TEST ITERATION SUBROUTINE teteeeeens 


BIT fl asSwR ;SEE IF ITERATIONS 

BEQ ITER IF SO: BR 

CLR TENT :CLEAR ITERATION COUNTER 
RTS PC ELSE EXIT 

INC ITCNT sBUMP COUNTER 

CMP ITCNT, I TAMT ;SEE IF DONE ALL 

BEQ ITERO IF SO: BR 

TST (SP)+ :RESET STACK 

MOV @ITRLP,RO ;SET ITERATION POINTER 
JMP (RO) :GO ITERATE 

s INITIALIZE SUBROUTINE *tteeeeeee 

NOP 


MOV #40,aCS : INIT 

MOV DRVN,aCS ; SELECT DRIVE 
MOV SLVN,aTC sSELECT SLAVE 
RTS PC ; RETURN 


SEQ 00535 


TMO2/TUSS BASIC FUNCTION TEST 
CZTUJA.P11 


011770 


012012 


012014 


000167 
000167 


07-JUN-78 16:58 


166730 


020000 
166642 
166634 


000430 
166544 


002732 
2 


167510 
170606 


MACY11 30(1046) 


166612 


166654 


TRAP2: TST 
: B 


; 7 
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s;MAG TAPE INTERRUPT HANDLERetteeeenee 


MTINT: NOP 


(SP)+,(SP)+ ;RESET STACK POINTER 


@RTRN ;RETURN TO CALLER 


sTTY INTERRUPT HANDLEReeeeeeee2% 


TTINT: NOP 


:BUS ADDRESS TRAP HANDLER*etteeeee2% 


TRAP: NOP 
B 


TRAP1: MOV 


TRAPX: 





JMP 
TRAPXX: JMP 





#20000 ,aSWR ;SEE IF SHOULD PRINT ERRORS 
TRAP2 :1F NOT: BR 

HORFL >SEE IF DONE HEADER 

TRAP1 IF SO: BR 

HDRFL :ELSE SET HEADER FLAG 
EMADDR ,R4 

PC, TTOUT ;PRINT HEADER 

#ASG24 ,R4 

DS al PRINT ERROR 

PC ,OCTP :PRINT ADDRESS OF TRAP 
aSuR :SEE IF HALT ON ERROR 

TRAPX IF NOT: BR 

(SP)+, (SP)+ RESET STACK 

#FTIA,SCOLP ;SET SCOPE ADDRESS 

PC, SCOPE :GO SEE IF SCOPE LOOP 

RHTF ;SEE IF INITIAL ADDRESS TEST 
TRAPXX IF NOT: BR 

STOB ELSE REDO ADDRESS REQUEST 
FT1B sRETURN TO TEST 1 


SEQ 0054 


CZTU 


012130 


012274 


005067 


000207 


ries ot BASIC FUNCTION TEST 
A.P11 07-JUN-78 8 


16:5 


166604 


000152 
000215 


166562 


000066 
000260 


000076 
000270 


000062 
166520 


177770 
166422 


000014 


000004 


MACY11 30(1046) 


166520 


166476 


166462 


166426 


TTR: 
TTRO: 


TTR1: 


TTRIA: 


TTR1B: 


TTR2: 


TTR3: 


TTR4: 
TTRS: 


D 5 
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FRAT ETAT AA AAA AEAAAEAARKERARAREKERHKEEEES 


sTTY ENTRY SUBROUTINE: 


:THIS SUBROUTINE IS USED BY THE TEST CONDITION 
sENTRY ROUTINE TO READ THE RESPONSE ENTERED 


LIMITS. 
:(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
:THE CALLING ROUTINE. 

IF AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
:A QUESTION MARK IS TYPED (?) AND THE RESPONSE 
:MAY BE REENTERED. 

sENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
:MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 

:CARRIAGE RETURN 


PARRA RASDARARSARA SEAS AASALASAAALA ASE ARAL ELA LAA LASS SS 


ee _" ;CLEAR FIRST CHARACTER FLAG 
JSR PC,TTIN :GO READ CHARACTER 

CMPB #215,TIB ;SEE IF CR 
BNE TTR1 :1F NOT: BR 

TST TEMP1 ;SEE IF FIRST CHARACTER 
BEQ TTRS IF SO: BR 

JMP TTR2 SELSE GO LOAD VALUE 

CMPB #260,TIB :SEE IF CHAR IS LESS THAN 0 
BLOS TTRIA : IF NOT: BR 

JMP TINER sELSE GO TO ERROR 

CMPB #270,TI8 ;SEE IF CHAR IS GREATER THAN 7 
BHI TTR1IB :1F NOT: BR 

MP TINER sELSE GO TO ERROR 

bp: TEMP 1 ;SET FIRST CHARACTER FLAG 

L 

ROL RO 

CLC 

ROL RO sSHIFT 3 LEFT 

CLC 

ROL 

BIC #177770,TIB sSTRIP ASCII 

BIS TIB,RO ;LOAD CHARACTER 

DEC R1 ;SEE IF DONE 

BNE TTRO :1F NOT: BR 

CMP RO,R2 4m IF EXCEEDED MAXIMUM LIMIT 
BLOS TTRS F NOT: BR 

JMP TINER SELSE GO TO ERROR 

CMP R3,RO ;SEE IF BELOW MINIMUM LIMIT 
BLOS TTR4 :1F NOT: BR 

JMP TINER :ELSE GO TO ERROR 

MOV RO, (R5) ;LOAD VALUE 

RTS PC sEXIT 


SEQ 0055 


TMO2/TU4S BASIC FUNCTION TEST 
CZTUJA.P11 


012276 
012302 
012306 
012312 


012314 


012502 


012704 
004767 
162716 
000207 


005077 


000207 


07-JUN-78 16:58 


013433 
000060 
000020 


166320 
166316 
166340 
166304 
166300 


166274 
166270 


166306 


166274 
000043 


000045 
000050 


166224 
000020 


000012 
000002 
166152 
166166 


MACY11 30(1046) 


166320 


166262 


166266 
166256 


166240 


166206 


166144 


TINER: 


TTIN: 


TTINI: 


TTIN2: 


TTOUT: 


TCRLF : 


TCRLFA: 


TOG: 


13-JUN-78 


TTY ENTRY ERROR SUBROUTINE t#erternes 


MOV 
J 


#ASG7,R4 
PC, TTOUT 
#20, (SP) 
PC 


: = 
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;PRINT? 


;RESET SP TO START OF VALUE ROUTINE 
;REDO VALUE ENTRY 


sTTY READ SUBROUTINE *tttteeere 


OUTPUT SUBROUTINE teetereeeeer 


(R4)+,TOB 
#43,T0B 
TE 


T 
TOB,aTPB 
PC 


:D0 FILLERS 


SEQ 0056 


TMO2/TU4S BASIC FUNCTION TEST 
CZTUJA.P11 


012767 


07-JUN-78 16:58 


000001 


000212 


000162 
000120 
100000 
000001 
000116 
000006 


000104 


000064 


000052 


000036 


000022 
000014 
000240 
177576 
177770 


000030 


000020 


177536 


, 3 
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000222 OCTPE: 


166002 


OCTP: 
OCTPE1: 


OCTPO: 


OCTP1: 
OCTP2: 


OCTPS: 


OCTPG: 


OCTPGO: 
OCTPG1: 


OFL: 


sOCTAL OUTPUT SUBROUTINE*ttteteeeeane 


#1,0FL 

R3,R4 

OCTPO 

OFL sCLEAR FLAG FOR LEADING ZERO 
R3,R4 :SEE IF NUMBER IS ZERO 
OCTPO :1F NOT ZERO: BR 
PC ,OCTPG!1 sELSE PRINT ZERO 
OCTP3 ;SPACE AND EXIT 
#100000 ,R4 sSEE IF MSD = 1 
OCTP1 ;1F NOT: BR 
#1,R4 

PC,OCTPG ;PRINT 1 

OCTP2 

PC,OCTPG :PRINT 0 

R3,R4 

R4 

R4 

R4 ;POSITION DIGIT 
R4 

R4 

PC ,OCTPG sPRINT DIGIT 2 
R3,R4 

R4 

RG 

PC .OCTPG :PRINT DIGIT 3 
R3,R4 

R4 

R4 

R4 

PC,OCTPG sPRINT DIGIT 4 
R3,R4 

R4 

RS 

R4 

Deal 

PC ,OCTPG :PRINT DIGIT 5 
#240,T0B 

PC,TOG sPRINT SPACE 

PC sEXIT 
#177770,R4 

OCTPGO 

OFL 

OCTPGO 

PC 

OFL 

#260,R4 

R4,TOB 

PC,TOG 

R3,R4 

PC 


;FIRST CHAR FLAG 


SEQ 0057 


TMO2/TUSS BASIC FUNCTION TEST 
CZTUJA.P11 


013144 


000207 


010304 


000207 


07-JUN-78 16:58 


165724 
000010 
165714 
165666 
000200 
000061 


000060 
165654 


165720 
177704 


165706 
177674 


000036 


000026 


000010 
000002 


000260 
177760 
16552é 
177322 


MACY11 30(1046) 


165700 
165650 
165640 


DOUT: 


DOUT1: 


DOUT2: 
DOUTS: 


DOUTD: 


SNPT: 


165536 SNPG: 


G 5 
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;DATA CHARACTER OUTPUT SUBROUTINE*t#eerenenene 


CLR TOB 

OV #10,R4 
MOVB R3,TOB 
TSTB ihe J 
BPL 


BITB #200, Toe 

MOV ae 

MOV #060,aTPB 
TOB 


DEC R4 
BNE DOUT1 


PC 

MOV TEMPS ,R5 
R3 

JSR PC ,DOUT 


MOV TEMPS,R3 
JSR a 


;SET NUMBER TO PRINT 


sTU45 SERIAL NUMBER PRINT SUBROUTINE***seeee0% 


MOV R3,R4 
S R4 


WAB 

ROR R4 

ROR R4 

ROR R4 

ROR R4 

JSR PC ,SNPG 
MOV R3, 
SWAB R4 

JSR PC,SNPG 
MOV R3, 

ROR 4 

ROR R4 

ROR R4 

ROR R4 

JSR PC, SNPG 
MOV R3, 


R 

MOV #260,T0B 
BIC #177760 ,R4 
BIS R4,T0B 

JSR PC,1T0G 

RTS PC 


;GET FIRST DIGIT 
:GO PRINT 


:GET = DIGIT 
:G0 PRINT 


;GET THIRD DIGIT 

:GO PRINT 

;GET FOURTH DIGIT 
PRINT 


ET 
:TYPE DIGIT 
; RETURN 


SEQ 0058 


TMO2/TU45 BASIC FUNCTION TEST 
CZTUJA.P11 


013146 


013574 


041445 
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030523 


051105 
046524 


052122 


041505 


047117 
051117 


051104 


053522 


H 5 
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020040 
0 


047522 
031060 


040524 


044507 
051440 
036440 


047524 

043 
020104 
051501 


043 


044523 
042440 
020072 


053111 
041115 

043 
053101 
041115 

043 
052111 
047522 
042101 


051105 
051122 


020104 
051101 


MSG1: 


MSG2: 


MSG3: 


MSG10: 


MSG11: 


MSG12: 


MSG13: 


MSG14: 


sMESSAGE TABLEttt*® 
wC 


-ASCII 


ASCII 


ASCII 


-ASCII 


ASCII 


/%CS1 


/0S 


ER 


BA 


TCRM/ 


/ZREWIND ERROR#/ 


/2ZTMO2-TU45 BASIC FUNCTION TEST (CZTUJAO)Z/ 


/ENTER CONDITIONS IN OCTALZ4/ 


/ZREGISTER START = #/ 


/ZVECTOR = #/ 


/ZEND OF PASS #/ 


/ ? &#/ 


/2#/ 
/ZPOSITION ERROR: #/ 


/ZORIVE NUMBER: #/ 


/ZSLAVE NUMBER: #/ 


/EWRITE ERROR #/ 


FC 


/ZREAD REVERSE ERROR #/ 


/ZREAD FORWARD ERROR #/ 


CS2 


SEQ 0059 


TMO2/TUSS BASIC FUNCTION TEST 
CZTUJA.P11 


014216 


052111 
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051105 
43 


052502 
050101 


041527 
040502 
041104 
047111 
042111 
041440 
051040 


041523 
051040 


051440 


02010: 
042523 


051124 
020124 


0 
021440 
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047522 
052111 
0 


051122 


040527 
051122 


021440 

043 
052120 
042126 


020123 
020072 


020072 
020072 
020072 
052111 


020110 
047040 


052105 


047516 
020124 


020105 
042523 


047040 
052105 
047111 


MSG15: 


MSG16: 


MSG17: 


MSG20: 
MSG21: 
MSG22: 


MSG23: 
MSG24: 


MSG25: 
MSG26: 
MSG27: 
MSG28: 


MSG29: 


MSG30: 


MSG31: 


MSG32: 


MSG33: 


MSG34: 


MSG35: 


- 
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ASCII 


ASCII 


ASCII 


ASCII 
ASCII 
ASCII 


ASCII 
eASZIT 


ASCII 
ASCII 
ASCII 
-ASCII 


-ASCII 


-ASCII 


-ASCII 


ASCII 


-ASCII 


ASCII 


-ASCII 


/ZWRITE TM ERROR #/ 


/ZREVERSE ERROR #/ 


/ZFORWARD ERROR #/ 


/ NRZ #/ 
/ PE #/ 
/ EXPT: #/ 


/ RCVD: #/ 
/ZBUS TRAP: #/ 


/4WC: #/ 
/ZBA: #/ 
/ZDB: #/ 
/ZINIT DID NOT CLEAR RH #/ 


/ZSC NOT RESET BY INIT #/ 


/ZTRE NOT RESET BY INIT #/ 


/%CS2 NOT RESET BY INIT #/ 


/EZ0LT NOT SET #/ 


/%ZSC NOT SET #/ 


/ZTRE NOT SET #/ 


/ZIR NOT SET BY INIT #/ 


SEQ 0060 


J 5 
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014222 


014670 


047445 


047522 


020122 


052116 
020122 
042525 
051440 
052506 


042101 


047040 
040522 


021522 


047516 
3 


054522 


047516 
020124 
046111 
046114 


051440 
042522 


047516 
042525 
051440 
052506 


026516 


4 
044522 
035117 


042523 


051101 
051127 


052455 
052111 
047522 


042503 
040527 
051122 


041501 
042526 
051105 


MSG36: 


MSG37: 


MSG38: 


MSG39: 


MSG40: 


MSG41: 


MSG42: 


MSG43: 


MSG44: 


MSG45: 


MSG46: 


MSG47: 


MSG48: 


ASCII 


ASCII 


-ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


-ASCII 


/ZOR NOT RESET BY INIT #/ 


/ZOR NOT RESET BY 1 SILO ENTRY #/ 


/ZOR NOT SET BY SILO FULL #/ 


/ZBAD SILO READ #/ 


/ZIR NOT RESET BY SILO FULLA&/ 


/ NON-EXIST DRIVE#/ 


/ NON-EXIST SLAVE#/ 


/ SERIAL NO: #/ 


/ZERASE HEAD INOPERATIVE/ 


/ZCHECK POLARITY#/ 


/ZERASE HEAD POLARITY WRONG#/ 


/ZSET-UP WRITE ERROR#/ 


/ZSPACE FORWARD ERROR#/ 


/EZSPACE REVERSE ERROR#/ 


TMO2/TU45 BASIC FUNCTION TEST 
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014674 


015266 


041045 


45 
046116 
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043125 


052516 
055122 
035131 
042524 


020115 


035131 
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042506 
051127 
051105 


051440 


042522 


047111 
041505 


053101 
020124 
044514 


051505 


047117 
047111 


047440 
021440 
035122 


047516 


046102 
030461 
044122 

043 
047440 
021440 


MSG49: 


MSG50: 


MSG51: 


MSG5S2: 


MSG53: 


MSGS4: 


MSG55: 
MSG56: 
MSG57: 
MSG60: 


MSG61: 


MSG62: 


K 5 
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-ASCII 


-ASCIT 


ASCII 


-ASCII 


ASCII 


ASCII 


ASCII 
ASCII 
ASCII 
ASCII 


-ASCII 


ASCII 


SEQ 0062 
/ZBUFFERED WRITE ERROR#/ 


/%BOT SET AFTER BUFFERED WRITEA/ 


/ZNO BOT FROM READ IN PRESETA#/ 


/ZTC INCORRECT #/ 


/ZSLAVE NOT OFF LINE#/ 


/ZZRESET SLAVE TO ON LINE BEFORE CONTINUING#/ 


/ENRZ ONLY: #/ 

/ ITER: #/ 

/ZTM NOT SET#/ 

/ZEITHER TAPE NOT ERASED OR OPI PROBLEM#/ 


/ZRH11 OR RH70: #/ 


/ZRH ONLY: #/ 


TMO2/TU4S BASIC FUNCTION TEST 
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015274 


0 
015736 


022445 


07-JUN-78 16:58 


052106 


042524 
052106 


020124 
043045 


052040 
052106 


042524 


043045 
051105 
042524 
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035061 
042104 
047111 


031124 


052123 
035064 


020065 


030524 
ee 


051505 
031461 


052123 


030524 
051501 
052123 


MSFT1: 


MSFT2: 


MSFT3: 


MSFT4: 


MSFT5: 


MSFT6: 


MSFT7: 


MSFT10: 


MSFT11: 


MSFT12: 


MSFT13: 


* MSFT14: 


MSFT15: 


+= 
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ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


-ASCII 


/ZZFT1:RH ADDRESSING #/ 


/2ZFT2:RH REGISTER BITS TEST #/ 


/ZZFT3:RH INITIALIZE TEST #/ 


/ZZFT4:RH11 SILO TEST 1 #/ 


/ZRFTS:RH11 SILO TEST 2 #/ 


/ZZFT6:RH11 SILO TEST 3 #/ 


/Z2ZFT7:RH11 SILO TEST 4 #/ 


/ZZFT10:RH11 SILO TEST 5 #/ 


/ZZFT11:NOP TEST#/ 


/ZZFTI2:REWIND TEST#/ 


/ZZFTIS:WRITE-READ TEST#/ 


/ERFT1I4:SPACE TEST#/ 


/ZZFTIS:ERASE TEST#/ 


SEQ 0063 


TMO2/TU45 BASIC FUNCTION TEST 
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015737 
0 4 


016226 


012732 
017744 


051505 


000000 
017744 
000000 


000001 


07-JUN-78 16:58 


043945 


051505 
043045 


021524 
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030524 
0 


052040 
033461 
050123 
042524 


030062 


020124 
031124 


052040 


032062 
047111 
020106 
052040 


MSFT16: 


MSFT17: 


MSFT20: 


MSFT21: 


MSFT22: 


MSFT23: 


MSFT24: 


Mm 5 
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-ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


/ZZFT16: TAPE MARK WRITE-READ TEST#/ 


/ZZFT17:TM SPACE TEST #/ 


/ERFT2ZO:WRITE CHECK TEST #/ 


/ZRFT21:ERASE HEAD TEST#/ 


/ZZFT22:BUFFERED COMMAND TESTA/ 


/ZZFT235:READ IN PRESET TEST#/ 


/ZZFT24:REWIND-OFF LINE TEST#/ 


N 5 
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CZTUJA.P11 07-JUN-78 16:58 SYMBOL TABLE SEQ 0065 
AS 000616 ERRP 000714 FT16A 006516 FI4ER 003624 MSFT22 016106 
A 000604 ERRP1 000716 FT16B 006522 FI4ERA 003634 
BADDOR 00704 EXEC 010626 FT16X 006716 FT4ERB 003644 
BTRP 62 EXECA 010700 FTI? 006726 FIGERC 003652 
BTRP2 000664 EXECB 010706 FII7A 006746 FT4X 003614 
cc 000620 EXECC 010726 FT17B 006752 FT5 003670 
CRCNT 001002 EXECX 010746 FTI7C =: 007112 FTSA 003712 
C 000610 EXECXA 010752 FTI? 007162 F158 003740 
C1 000600 EXECXX 010756 FT17D1 007200 FTSC 003762 
DATAO 3 001022 EXFL 000766 FTI? 007214 FT5D 004012 
DATA1 001024 FC 000606 FT17 007306 FI5E 004024 
DATA2 001026 FCNT 000706 FT17X 007336 FISER 004062 
DATAS 0010350 FT 002700 FT2 00300 FT5X 004052 
DATBL 001020 FTIA 002732 FT2A 003012 FT6 004072 
DATI 011552 FT1B 002736 FT2B 003052 FT6A 004114 
DATIA 011556 FT1X 002750 FT2C 003112 FT6B 004122 
DATIB 011562 FTIXX 002774 FT2D 003126 FT6C 004160 
DAT2 011574 FT10 004450 FT2E 003156 FT6D 004202 
DATS 011602 FTI0A 004504 FT2ZER 003170 FT6DE 004244 
DATS 011612 FTIOER 004570 FT2ERA 003220 FT6DEA 004276 
DAT4A 011620 FTI0X 004546 FT2ERB 003272 FI6DEB 004342 
FTIOXX 004564 FT2ERC 30 FT6DEX 004352 
DOUT 012736 FT11 004604 FT2Xx 003312 FT6E 004204 
DOUTD 013020 FT12 004722 FT20 007342 FI6ER 004234 
DOUT1 012752 FT12A =©005002 FT20A 007420 FT6X 004224 
DOUT2 0135000 FT13 005034 FT20B FT7 004354 
DOUTS FTISA 005114 FT20C FI7A 004406 
DRVN 7 FT13B 005156 FT20x 007572 FT7ER 4434 
DRVTP 00652 FTI3C §=—6. 005236 T21 60 FT7X 004424 
S FT13D 005304 FT21A 007740 F 000776 
DSAV 000752 FTI3E 005356 FT21X 00 HORFL 
DSUP 011460 FT13X 005370 FT22 04 INIT? 011742 
0SO 011462 FT14 005374 FT22A 010160 INIT2 011752 
DS1 011502 FTI4A 005446 FT22B ITAMT 000654 
DS2 011522 FTI4A1 005412 FT22x 010274 ITCNT 000750 
DS3 011532 FT14A2 005542 FT23 1 ITER 011676 
DS4 011542 FT14A3 005566 FT23A 010414 ITERO 011710 
T 00062 FT14B 005622 FT23B 010434 ITER1 011716 
EMADDR 000676 FTI4EC 00 FT23C 010464 ITRLP 000764 
E 000614 FTI4RE 006046 FT23x 010520 LTADD 000774 
ERADD FTIGRF 006012 FT24 010524 000624 
ERCHK 011056 FTI4RR 005750 FT24A 56 MSFT1 015274 
ERPT 011102 FT14RO 006120 FT24X 010612 MSFT10 015550 
ERPTA 011172 FTI4R1 006142 FT24XxX 010622 MSFT11 015601 
ERPTA1 011124 FTI4R2 006146 FT3 0033524 MSFT12 015621 
ERPTB 011230 FTI4R3 006220 FT3A 003400 MSFT13 015644 
ERPTB1 011242 FT14X 006230 FT3B 003422 MSFT14 015673 
ERPTC 011272 FT14XXx 6260 FISER 003460 MSFT15 015715 
ERPTD 011402 FT15 006264 FISERA 003512 MSFT16 015737 
ERPTG 011132 FTISA 006334 FISERB 003522 MSFT17 016000 
ERPTX 011412 FT15B 006350 FTSERC 003532 MSFT2 015321 
ERPTXX 011416 FT1I5X 006460 FT3Xx 003450 MSFT20 016026 


ERPTIA 011224 FT16 006464 FT4 003542 MSFT21 016057 MSG51 014760 


TMO2/TU4S BASIC FUNCTION saree 


CZTUJA.P11 


ERRORS DETECTED: 





015014 


012656 


017746 


07-JUN-78 


000 


0 


-CZTUJA.SEQ/SOL_CZTUJA.P11 


RUN-TIME 
RUN-TIME RATIO: 


CORE USED: 5K 


: 14 28 2 


(10 PAGES) 


MACY11 30(1046) 
SYMBOL T 


012734 
0 


000730 


13-JUN-78 
ABLE 


B 6 
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012420 


TCRLFA 
TEMP 1 


012436 


002412 
002442 


002476 


016232 


= 017746 


SEQ 0066 


